#!/usr/bin/perl
# usage:  w1.6.pl fname*
# This acts a bit like the Unix "cat".  It takes in all lines from
# the files listed as arguments arguments and then prints them.
# The diamond operator <> gets each line of every file list as an
# argument on the command line. 

@arr =<>;
print @arr;
__END__
