eval {
     ... some code doing somethin ...
     die "Couldn't do something!\n";
}

if ($@) {
     print "I caught a call to die: $@";  
}