Select Code to Download

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

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

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