Help for this page

Select Code to Download


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