#   Failed test at t/P.t line 96.
self-test failed: Can't locate object method "print" via package "IO::File" at lib/P.pm line 119.
Use of uninitialized value $rcase in numeric eq (==) at t/P.t line 95.

#   Failed test 'received testcase 2'
#   at t/P.t line 95.
Use of uninitialized value $rstr in pattern match (m//) at t/P.t line 96.

#   Failed test at t/P.t line 96.
self-test failed: Can't locate object method "print" via package "IO::File" at lib/P.pm line 119.
Use of uninitialized value $rcase in numeric eq (==) at t/P.t line 95.

...a bunch more...

##</code><code>##

  ok($caseno == $rcase, "received testcase $caseno");
  if (length($re)) {ok($rstr =~ m{$re}, $name)}