$remote = IO::Socket::INET->new(Proto => 'tcp', PeerAddr => $transaction_ips[($i%2)], PeerPort => 8120, Timeout => 5));
last if $remote;