Select Code to Download

my $buffer = <$sock>;
while ($buffer !~ /GO AHEAD\Z/) {
    $buffer .= <$sock>;
}

use IO::Socket;
use POSIX qw/BUFSIZ/;
...
    $message .= $buffer;
}