$ perl -MTest -le " plan tests=>1; skip 0, sub{ -monkeys }, sub {-bananas } ;
1..1
# Running under perl version 5.016001 for MSWin32
# Current time local: Mon Dec 29 22:53:31 2014
# Current time GMT:   Tue Dec 30 06:53:31 2014
# Using Test.pm version 1.25_02
not ok 1
# Test 1 got: "-monkeys" (-e at line 1)
#   Expected: "-bananas"

$ perl -MTest -le " plan tests=>1; skip 1, sub{ -monkeys }, sub {-bananas } ;
1..1
# Running under perl version 5.016001 for MSWin32
# Current time local: Mon Dec 29 22:53:47 2014
# Current time GMT:   Tue Dec 30 06:53:47 2014
# Using Test.pm version 1.25_02
ok 1 # skip

$ perl -MTest -le " plan tests=>1; ok sub{ -monkeys }, sub {-bananas } ;
1..1
# Running under perl version 5.016001 for MSWin32
# Current time local: Mon Dec 29 22:53:53 2014
# Current time GMT:   Tue Dec 30 06:53:53 2014
# Using Test.pm version 1.25_02
not ok 1
# Test 1 got: "-monkeys" (-e at line 1)
#   Expected: "-bananas"