#!/usr/bin/perl


# This program requires the name of a text file at the 
# command line, as the first argument. The while loop
# prints out each line of the text. 
# the ARGV array holds the name of the file.

print "\n";
print $ARGV[0];
print "\n";


while (<>) {
chomp;
print "$_\n";
}