my ($buf) = $sock->getlines;