perl -MDevel::Cover mainfile.pl

##</code><code>##

perl -MDevel::Cover=-coverage,subroutine mainfile.pl &&
cover -report text