$SIG{__DIE__} = sub { print "Died with message '$_[0]'\n"; };
open(NOFILE, '/no/file/here') or die "Ooops: $!";

##</code><code>##

Died with message 'Ooops: No such file or directory at /home/stephen/test.pl line 2.
'