my $s=IO::Socket::INET->new(
        PeerAddr=>$irc_server,
        PeerPort=>$server_port,
        Timeout=>1) or die (print "Can't bind : $IO::Socket::errstr\r\n");