$ perl Foo.t
1..2
ok 1 - prints short version
ok 2 - prints long version
$