- or download this
my $res = eval {
something(...);
};
die $@ if $@;
do_something_more(...);
- or download this
use Carp;
$SIG{__DIE__} = \&Carp::confess;
...
}
__END__
BANG! at - line 8.
- or download this
use Carp;
$SIG{__DIE__} = \&Carp::confess;
...
__END__
BANG! at - line 9.
at - line 4