my $action = defined param('action') ? param('action') =~ s/[^a-zA-Z0-9_-]//g
           : 'home'
           ;