oscar@toreyes-i7:~/WIP/perl/gestion_DIE$ cat prueba.pl 
use diagnostics;
use strict;

sub mensaje() { print "OJO !!!! Este script se ha muerto por la ejecución de die()\n"; }

# Instalar manejador en caso de ejecuarse un die()
$SIG{__DIE__} = \&mensaje;

my $refFake = 'pepe';
print $refFake->{'lolo'}; # Aqui se genera el error
print "Me moriré antes de mostrar esta linea\n";

oscar@toreyes-i7:~/WIP/perl/gestion_DIE$ perl prueba.pl 
OJO !!!! Este script se ha muerto por la ejecución de die()
Can't use string ("pepe") as a HASH ref while "strict refs" in use at prueba.pl line 10.

oscar@toreyes-i7:~/WIP/perl/gestion_DIE$ echo $?
255