my $action = param('action'); 
if (defined($action)) {$action =~ s/[^a-zA-Z0-9_-]//g;} 
if (!defined($action) || $action eq '') {$action = 'home';}