$ perl -MDevel::Cover tests/hilo 2
Devel::Cover 0.2010: Collecting coverage data for branch, condition, statement and time.
Selecting packages matching:
Ignoring packages matching:
Ignoring packages in:
.
/usr/local/pkg/perl-5.8.0/lib/5.8.0
/usr/local/pkg/perl-5.8.0/lib/5.8.0/sun4-solaris
/usr/local/pkg/perl-5.8.0/lib/site_perl
/usr/local/pkg/perl-5.8.0/lib/site_perl/5.8.0
/usr/local/pkg/perl-5.8.0/lib/site_perl/5.8.0/sun4-solaris
What is your guess: 1
Too low
What is your guess: 2
Right!
------------------------------------------ ------ ------ ------ ------ ------
File stmt branch cond time total
------------------------------------------ ------ ------ ------ ------ ------
tests/hilo 100.00 83.33 n/a 100.00 93.75
Total 100.00 83.33 n/a 100.00 93.75
------------------------------------------ ------ ------ ------ ------ ------