$ perl -MDevel::Cover your_script.pl

$ cover
Reading database from /home/yourusername/cover_db


---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           stmt   bran   cond    sub    pod   time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
...DB/Schema/Result/Files.pm  100.0    n/a    n/a  100.0    n/a    0.0  100.0

...
Writing HTML output to /home/yourusername/coverage.html ...
done.