$ perl x.pl
1..2
ok 1
ok 2