package HTML::Table;
use CGI;
my $cgi = CGI->new();
sub map_rows (@) {
my $n = splice(@_, 0, 1);
push(@_, '' x (-@_ % $n));
my @table_rows = map {$cgi->Tr(
$cgi->td( [splice @_, 0, $n] )
)
} 0..((@_/$n) - 1);
}
sub make_table {
my ($columns, @elements) = @_;
return $cgi->table( map_rows $columns, @elements );
}
1;