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