I suppose the subroutine that makes the call to it would help too. I'll spare you all the dispatch routine as it's quite lengthy, but basically the DispatchTbl::* generates webpages dynamically depending on the uri caught by RequestHandler::handler();.
sub post_login_form { my $state = shift; my %args = $state->{q}; $state->{template} = 'generic.tmpl'; $state->{title} = 'TTMS Login'; my $checkpass = get_password($state); if ($checkpass eq $state->{q}{login_pass}) { $state->{login_user} = $state->{q}{login_user}; $state->{login_pass} = $state->{q}{login_pass}; $state->{auth_status} = "Logged in as $state->{login_user}"; set_auth_cookie($state); $args{body} = "Good Morning, Dave."; } else { set_logout_cookie($state); $args{body} = "I'm afraid I can't let you do that, Dave."; } return output_html($state, %args); }