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