my $line = <$sock>;