$ perl cool.pl


My output from the script

Total lines in cool.pl: 37