$APPNAME = "AnyName";

do "prog_file";
print $lines;