$ perl cool.pl


My output from the script

Total lines in cool.pl: 37

##</code><code>##


echo "$(egrep -v "^#" script.pl) - $(egrep "#" script.pl)" | bc