print "in\n";
eval ("die 'boing'");
print "out\n";
print $@;