Help for this page

Select Code to Download

Select or download this

sub test_code {
   my $code = shift;
...
   eval $code;
   $@ eq "OK\n";
}