$APPNAME = "AnyName";

open my $fh, "<", "prog_file" or die $!;
my $lines; { local $/ = undef; $lines = <$fh>; }

print eval "qq|$lines|";

##</code><code>##

$APPNAME = "AnyName";

do "prog_file";
print $lines;