$sock = IO::Socket::INET.....
$sock->autoflush(1);