my $cgi = new CGI;

$my_code->{$cgi->param("action"))->($cgi);

##</code><code>##

my $req = FCGI::Request(...);

while ($req->Accept()) {
    my $cgi = new CGI;

    $my_code->{$cgi->param("action"))->($cgi);
}