eval {
      do_stuff();
   }
   if (not $@) {
      print "Successful!\n";
   } else
      print "Error: $@\n";
   }


##</code><code>##

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