use IO::Socket::INET;

use strict;
use warnings;

IO::Socket::INET->new(Proto => "tcp", PeerAddr => "123.123.123.123", PeerPort => 123, Timeout => 10) || die "failed to connect";