use IO::Socket::INET;
my($ip,$port)=('0.0.0.0','9999');
my $server = new IO::Socket::INET (
                                  PeerAddr  => $ip,
                                  PeerPort  => $port,
                                  Proto => 'tcp',
                               )                
or die "Couldn't connect to Server: $!\n";