eval { push @tbl, [ @$_ ] for $table->rows };<br>
if ($@) {<br>
    my $error = $@;   <br>
    warn " Custom error type 1 = no problem ";<br>
}