while ( my $line = <$sock> ) { #more stuff }