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