sub connect_to_service
{
    my $service_url = shift;
    my $logger = Log::Log4perl->get_logger();
    
    my $max_attempts = 10;
    
    ATTEMPT: while( $max_attempts-- )
    {
        my $connection = connect($service_url, {timeout=>30});
        
        if( defined $connection )
        {
            $logger->info("Connected OK to $service_url");
            return $connection;
        }
        else
        {
            $logger->error("Error connecting to $service_url, will retry");
        }
    }
    
    # If this line is reached then all 10 connection attempts failed
    $logger->logdie("Could not connect to $service_url");
}

##</code><code>##

ERROR: Error connecting to soap//service, will retry
[last message repeated 10 times]
FATAL: Could not connect to soap//service