17. Perlcom

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