Select Code to Download

open HTML, ">html.txt" or die "couldn't open html.txt: $!\n";

foreach my $line (@html) {
    $html .= $line;
}