push(@incl,"&CreateLogInForm(\$page,\$error)");

foreach $incl (@incl) {
  $page .= eval $incl;
}

##</code><code>##

push(@incl, sub { &CreateLogInForm($page,$error) });

foreach $incl (@incl) {
  $page .= &$incl;
}

##</code><code>##

{
  my $page  = 'abc';
  my $error = 'def';

  push(@incl,"&CreateLogInForm(\$page,\$error)");

  $page  = 'ghi';
  $error = 'jkl';
}

foreach $incl (@incl) {
  my $page  = 'mno';
  my $error = 'pqr';
  $page .= eval $incl;   # Uses 'mno' and 'pqr'
}

##</code><code>##

{
  my $page  = 'abc';
  my $error = 'def';

  push(@incl, sub { &CreateLogInForm($page,$error) });

  $page  = 'ghi';
  $error = 'jkl';
}

foreach $incl (@incl) {
  my $page  = 'mno';
  my $error = 'pqr';
  $page .= &$incl;   # Uses 'ghi' and 'jkl'
}