Select Code to Download

my $buffer = "";
while (<FH>) {
...
    $buffer = $_;
}
print $buffer;

my $nl = "";
while (<FH>) {
...
    print;
}
print $nl;  # Prints newline if we saw at least one non-blank file.