Select Code to Download

my $buffer;

while (my $line = $socket->getline())
...
}

print "Read: ", $buffer, "\n";