Select Code to Download

while(chomp(my $line = <$fh>)) {
    $show .= "$line\n";
}

{
    local $/ = undef;
    $show = <$fh>;
}