while  ( defined( my $line = $socket->getline ) ) {

}

while (my $line = <$socket>) {

}

my @lines = <$socket>;