use IO::Socket::INET;
$sock=IO::Socket::INET->new(PeerAddr => 'machinename',
     PeerPort => $portnumber,
     Proto => 'tcp');