Help for this page

Select Code to Download

Select or download this

   eval {
      do_stuff();
...
   } else
      print "Error: $@\n";
   }

Select or download this

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/