perl -MDevel::Cover x.pl 
cover