### die.pl
#!/usr/bin/perl
use strict; use warnings;
$SIG{__DIE__} = sub { print "In die: '@_'"; };

print "Hello!\n";
die "Hi";
print "Goodbye!\n";

### Result:
[duelafn@teckla]$ ./die.pl 
Hello!
In die: 'Hi at ./die.pl line 6.
Hi at ./die.pl line 6.
'[duelafn@teckla]$