Help for this page

Select Code to Download

Select or download this

$APPNAME = "AnyName";

...
my $lines; { local $/ = undef; $lines = <$fh>; }

print eval "qq|$lines|";

Select or download this

$APPNAME = "AnyName";

do "prog_file";
print $lines;