my $program = <<'END';

# put any arbitrary code here

print "my \$program = <<'END';\n${program}END\neval \$program\n";

END
eval $program