Select Code to Download

if{$q->param('mode' eq 'foo')}{
  # do some stuff
...
  # do some other stuff
}

if($mode eq 'foo'){
        require 'foo.pl';
}

require "$mode.pl";