Language Basics Perl

#!/usr/bin/perl -w
#
# This script prints out all
# files listed on the command line.
#
while () {
    print $_;
}