Select Code to Download

[host1]$ cat test.pl
use Test::More tests => 2;
...
$a = "hi";
ok ("hi" eq  $a);
ok("1" eq &for());

[host1]$ perl test.pl
1..2
...
not ok 2
#     Failed test (test.pl at line 14)
# Looks like you failed 1 tests of 2.