#!/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);