Select Code to Download

my %Templates = (
   header=>q{
...
# Now you can use it like:

print get_template('header');

sub help {
    my $NAME = $_[0];
...
here-document terminator:
HELP_TEXT
}

sub gettime {
   my ($sec,$min,$hr,$day,$mon,$yr,$dayOfWeek) = localtime();
...

   return "$weekDays[$dayOfWeek] $mon/$day/$yr $hr:$min:$sec";
}

sub print_tempDB_report_from_file {
    my ($DB_FName, $RPT_FName) = @_;
...

    return $text;
}

# Startup

...
set_static_configuration();

# Do the work

switch (c) {
   case 'A': do_this();
...
             break;
   case 'C': do_this() && do_that();
}