$ cat joew.t
#!/opt/local/bin/perl -w

use strict;
use warnings;

use Test::More tests => 3;

ok(0==0, '0==0');

SKIP: {
    skip "Skipping odd tests", 1 unless 0;
    ok(1==1, '1==1');
}

ok(2==2, '2==2');

$ perl joew.t
1..3
ok 1 - 0==0
ok 2 # skip Skipping odd tests
ok 3 - 2==2

$ prove joew.t
joew....ok
        1/3 skipped: Skipping odd tests
All tests successful, 1 subtest skipped.
Files=1, Tests=3,  1 wallclock secs ( 0.12 cusr +  0.06 csys =  0.18 CPU)