Select Code to Download

<Location /archive>
SetHandler perl-script
PerlHandler My::Archive
</Location>

sub handler {
    my $r = shift;
...
        displayMessage($q, $dbh, $list, $year, $mon, $msg);
    }
}