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