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