Select Code to Download

use strict;
use CGI; # or CGI::Simple
...
my $rm = $q->param('rm');
eval "require $dispatch{$rm}" or die "runmode handler not found";
$dispatch{$rm}->handler($q);

sub handler
{
...
    # do what ever runmode requires
    # return html output
}