my $socket;

while (  !$socket = IO::Socket::INET->new (
                     Proto            => "tcp",
                     PeerAddr    => "192.168.1.105",
                     PeerPort        => "5000",
                     Timeout        => "1")
       )
{
    sleep 1; #or other backoff algorithm here
}