use strict;
use warnings;
use CGI::Carp;


eval { die "Ouch. 1" };
print $@, "\n" if $@;

eval { die "Ouch. 2\n" };
print $@, "\n" if $@;

eval { CORE::die "Ouch. 3" };
print $@, "\n" if $@;

eval { CORE::die "Ouch 4.\n" };
print $@, "\n" if $@;

__Output__
Ouch. 1 at C:/Perl/lib/CGI/Carp.pm line 312.
Ouch. 2
Ouch. 3 at C:\Perl\scripts\mytest.pl line 14.
Ouch. 4

##</code><code>##

use strict;
use warnings;
use Carp;


eval { die "Ouch. 1" };
print $@, "\n" if $@;

eval { die "Ouch. 2\n" };
print $@, "\n" if $@;

eval { CORE::die "Ouch. 3" };
print $@, "\n" if $@;

eval { CORE::die "Ouch 4.\n" };
print $@, "\n" if $@;

__OUTPUT__
Ouch. 1 at C:\Perl\scripts\mytest.pl line 8.
Ouch. 2
Ouch. 3 at C:\Perl\scripts\mytest.pl line 14.
Ouch. 4