... ##

##

#!/usr/bin/perl -wT
use strict;
use CGI;
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;
my $cgi = new CGI;
my $action = $1 if $cgi->param('action') =~ /^(\w+)+/;
&store_event if ($action eq 'storeevent');

##

##

my $action = $cgi->param('action');
&$action;

##

##

my $action = (defined $cgi->param('action')) ?
  ($cgi->param('action') =~ /^(\w+)+/) ? $1 : '' : '';