{
  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'
}