use warnings;

my $denum = 0;
eval { local $SIG{'__DIE__'} = sub { die $@ };
     print 1 / $denum;
};

print "[$@]\n";