Select Code to Download

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

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

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