$Sock = new IO::Socket::INET(PeerAddr=>"$Server:$Port",Proto=>"tcp");
my $non = 1;
ioctl($Sock,0x8004667e,\$non);
$Sock->autoflush();
die("Couldn't connect: $!\n") unless $Sock;