Select Code to Download

$socket->getline;
my $output = <$socket>;

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

...
}

my @lines = <$socket>;