$prog=q(
$prog="\$prog=q(".$prog.");";
print $prog;
print "\neval \$prog;\n";
);
eval $prog;