Help for this page
$socket->getline; my $output = <$socket>;
while ( defined( my $line = $socket->getline ) ) { ... } my @lines = <$socket>;