use warnings;

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

print "[$@]\n";

##</code><code>##

>c:\progs\perl588\bin\perl script.pl
[Died at script.pl line 4.
]

>c:\progs\perl5100\bin\perl script.pl
[Died at script.pl line 4.
]

##</code><code>##

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Binary build 817 [257965] provided by ActiveState http://www.ActiveState.com

This is perl, v5.10.0 built for MSWin32-x86-multi-thread
Binary build 1001 [283495] provided by ActiveState http://www.ActiveState.com