push @incl, [ \&CreateLoginForm, \$page, \$error ];

   # later on:

   foreach my $incl ( @incl ) {
       my ($sub, @args) = @$incl;
       $page .= $sub->(@args);
  }

##</code><code>##

  push @incl, [ \&CreateLoginForm, $page, $error ];