$ perl -MDevel::Cover pm_script_testing.pl 
$ cover