15. Discovery Q7

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