sub EVAL {
    my ( $try, $catch ) = @_;
    
    my( $ok, $e );
    $ok = eval { $try->(); 1 };
    $e = $@;

    return 1 if $ok and not( defined( blessed( $e ) ) and $e );

    return unless $catch;
    $catch->( $e );
}