C:\test>type junk8.pl
#! perl -slw
use strict;

foo() if @ARGV;

C:\test>perl -MDevel::Cover junk8.pl
Devel::Cover 0.61: Collecting coverage data for branch, condition, pod, statement, subroutine and time.
Selecting packages matching:
Ignoring packages matching:
    /Devel/Cover[./]
Ignoring packages in:
    .
    c:/Perl/lib
    c:/Perl/site/lib

Devel::Cover: Can't find file "blib\lib\Storable.pm" (blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\retrieve.al)): ignored.
Devel::Cover: Writing coverage database to C:/test/cover_db/runs/1193413458.532.60512

---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           stmt   bran   cond    sub    pod   time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
junk8.pl                      100.0   50.0    n/a  100.0    n/a  100.0   85.7
Total                         100.0   50.0    n/a  100.0    n/a  100.0   85.7
---------------------------- ------ ------ ------ ------ ------ ------ ------