# $apr is an Apache::Request object
my $action = $apr->param('action');

# program is directed to do whats needed to be done through
# action variable.
# $t is an HTML::Template object - nuff said
for ($action) {
   /FOO/ && do { &puke($t,$apr); last;};
   /BAR/ && do { &swig_alcoholic_drink($t,$apr); last;};
}

# the rest of the story of course