sub test_code {
   my $code = shift;

   $code = 'die "OK\n"; ' . $code;

   eval $code;
   $@ eq "OK\n";
}