my $v = $q->Vars;       # tied, oder
my $v = { $q->Vars };  # untied