18. Perlread 1

#!/usr/bin/perl
# program name: perlread1.pl
$filein = $ARGV[0];
while (<>)
{
        print"$_";
        ++$line_count;
}
print ("file \"$filein\" has $line_count lines. \n");