my %actions = (
   'login'  => sub {
                require Login;
                do_login();
    },
    ...
);

##</code><code>##

Use of uninitialized value in subroutine entry at ...
Can't use string ("") as a subroutine ref while "strict refs" in use at .....

##</code><code>##

$query = 'default' unless exists $actions{ $query };