sub start {
   my %vars = $cgi->Vars();

   if($vars{action} eq 'foo') { &foo(\%vars); }
   # ...
}

sub foo {
   my ($vars) = @_;

   if($vars->{bar}) {
   }
}