Select Code to Download

sub setup {
        my $self = shift;
...
                'mode3' => 'do_something_else'
        );
  }

if    ($cgi{rm} eq 'mode1') { do_stuff }
 elsif($cgi{rm} eq 'mode2') { do_more_stuff }
 ...