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