Select Code to Download

use strict;
use warnings;
...
);

print &Template("DevMgr/ShowHeadCount",{ headcount_html => $hc });

sub db_Staff_On_Site_Between_Two_Dates {
    my ($start,$end) = @_;
...
    );
    
}

sub RunSQLReturnArrayRef {
    my $SQL = shift or exit;
...
    return $resultArrayRef;
}

sub UniqInits {

...

    \%data;
}