# Testing number of command line arguments...

# 1st argument: name of input file
# 2nd argument: name of output file

if ( scalar( @ARGV ) >=  2 )
{ 
            $TheFile = $ARGV[0];
            $TheMainOutFile = ">" . $ARGV[1];

} 

else 

{ 	print  "Not enough arguments given to operate; goodbye."; 
	exit;
}


open (INFILE, $TheFile) or die "The file $TheFile could not be found";
open (OUTFILE, $TheMainOutFile);



$LineCount =0; 					#This is unnecessary in PERL;

while (<INFILE>)        
{
	 print  $_;                    
         print OUTFILE $_;         
}


close INFILE;
close OUTFILE;

#	Now run this program, and keep your finger on Control-S, so you can pause it (and
#	restart it, watching its output on the screen.