#!/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