use CGI::Carp;
eval { die "Ouch!" };
print $@, "\n";
__OUTPUT__
Ouch at C:/Perl/lib/CGI/Carp.pm line 312.

##</code><code>##

use Carp;
eval { die "Ouch" };
print $@, "\n";
__OUTPUT__
Ouch at C:\Perl\scripts\mytest.pl line 6.

##</code><code>##

<p>
eval { CORE::die "Ouch" }
print $@, "\n";
__OUTPUT__
Ouch at C:\Perl\scripts\mytest.pl line 5.