Help for this page

Select Code to Download

Select or download this

my $ok = eval {
    ...
...
if (! $ok) {
    print "Caught error: $@";
};