#! /usr/bin/perl
use warnings; 
use strict;
use CGI; 
use CGI::Carp qw(fatalsToBrowser warningsToBroser);

my $cgi = CGI->new();

my $action = $cgi->param('action') || 'start';
if (exists $XYZ::Config::Config{$action} and
    ref($XYZ::Config::Config{$action}->{action}) ) {
  $XYZ::Config::Config{$action}->{action}->($cgi, $action, ...);
} # if
else { # fallback
  $XYZ::Config::Config{'start'}->{action}->($cgi, 'start', ...);
} # else