Select Code to Download

$/ = undef;
my $answer = <$socket>;