#!/usr/bin/perl -l
print "Before eval";
print "eval returned: ".eval {
 print "in eval";
 die 'Dieing';
 print "after die";
};
print "after eval";
print "eval error: $@";

Add a code snippet to your website: www.paste.org