eval { exit };
print "I caught it\n" if $@;