$ 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: 3
Too high
What is your guess: 2
Right!
------------------------------------------ ------ ------ ------ ------ ------
File stmt branch cond time total
------------------------------------------ ------ ------ ------ ------ ------
tests/hilo 90.00 66.67 n/a 100.00 81.25
Total 90.00 66.67 n/a 100.00 81.25
------------------------------------------ ------ ------ ------ ------ ------