Select Code to Download

<TEMPLATE NAME="TEMPLATE1">
# Processing instructions here ...
...
</TEMPLATE>

# etc

sub read_template {
    my ($templfile, $hashref) = @_;
...

    $fh->close;
}