Select Code to Download

use strict;
use warnings;
...
    return bless \ my $var, shift;
}

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/test_only_fails.pl 
not ok 2 - TEST 2
...
#          got: '2'
#     expected: '3'
# Looks like you failed 1 test of 5.