Select Code to Download

#!/usr/bin/perl

...
    $body = 1 if ($line=~/Connection: close/i);
}
close($socket);

#!/usr/bin/perl

...
} else {
    &false;
}

$| = 1;

my @output = <$sock>;

$output = join('', @output);