#!/usr/bin/perl 

# External Modules
#use strict;
#use warnings;

use Cwd;
system "clear";

$cwdir = cwd;
$APPNAME="AnyName"; # << "AnyName" must substitute in prog_file below.

#require "$cwdir/prog_file";
	
open(PROGFILE, "<$cwdir/prog_file"); # open for input

#my(@lines) = <PROGFILE>; # read file into list

@lines = <PROGFILE>; # read file into list

#my($line);

foreach $line (@lines) # loop thru list
 {
 print "$line"; 
 }
 
close(PROGFILE);

##</code><code>##

#!/usr/bin/perl 
# Sample Program

\$APPNAME="AnyName";

print "This is the var \$APPNAME and this is what needs to get substituted $APPNAME\n";


##</code><code>##

#!/usr/bin/perl 
# Sample Program


print "This is the var $APPNAME and this is what needs to get substituted AnyName\n";