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

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

##</code><code>##

#!/usr/bin/perl -Tw
use strict;

die "Let's Try to die.";

END {
	print "End block is being executed.\n";
	if ($@){
		print "We caught a call to die: $@\n";
	}
}