sub retry {
        my $job     = shift;
        my $retries = shift || 1;
        my $delay   = shift || 1;
        my $res;
        sleep $delay while !($res = &$job) && --$retries;
        return $res;
    }