$ perl carptest.pl 
exists.dat has 3 lines
No such file or directory at carptest.pl line 26.
	main::countLines("doesnotexist.dat") called at carptest.pl line 21