my $sock = new IO::Socket::INET(
            PeerAddr => $server,
            PeerPort => 9000,
            Proto    => 'tcp',
        );

print " error : $!, $@ ";