Select Code to Download

eval {
     ... some code doing somethin ...
...
if ($@) {
     print "I caught a call to die: $@";  
}

#!/usr/bin/perl -Tw
use strict;
...
        print "We caught a call to die: $@\n";
    }
}