use CGI qw(:standard Vars);
my $action = param('action');