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

print " error : $!, $@ ";

##</code><code>##

error: Illegal seek,
error: Connection refused, IO::Socket::INET: Timeout
error: Connection refused, IO::Socket::INET: Timeout
error: Connection refused, IO::Socket::INET: Timeout
error: Illegal seek, IO::Socket::INET: Timeout
Illegal seek,error: Illegal seek, IO::Socket::INET: Timeout