Help for this page
push @incl, [ \&CreateLoginForm, \$page, \$error ]; ... my ($sub, @args) = @$incl; $page .= $sub->(@args); }
push @incl, [ \&CreateLoginForm, $page, $error ];