Select Code to Download

for my $line (
    map { ... }
...
    <DATA>) {
    print $line;
}

print
    map { ... }
...
    ...
    }
    <DATA>;