sub worker {
    my( ... ) = @_;
    eval {
        ...
        ...
        return 1 if <cond>;
        ...
        1;
    } or threads->create( \&worker, @_ );
}