use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
	PeerAddr => 'peer',
	PeerPort => 9876,
	Proto => 'tcp',
	Type => SOCK_STREAM,
	Blocking => 0
) || die $!;

$sock->close();