Help for this page

Select Code to Download

Select or download this

my $index = \&login;

for (keys %{$_[0]}) {
  print qq[<TD WIDTH="$table_vars{$_}">\n$index->()\n</TD>\n];
}

Select or download this

for (keys %{$_[0]}) {
  printf qq[<TD WIDTH="$table_vars{$_}"\n%s</TD>\n],
    $index->();
}