use Carp;

# Fatal stack trace made non-fatal.
eval q{confess('Stack Trace')}; 
print $@; # $@ is set by eval().