my $okay= eval {
    ....;
    1
};
if(  ! $okay  ) {
    warn "Error in eval: $@\n";
}