use FileHandle;
$sock->AUTOFLUSH = 1;