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