5 my @td = map { "<td>$_</td>" } @_;
6 my $html = qq{<table>\n<tr>};
7 foreach ( 0 .. $#td ) {
9 $html .= qq{</tr>\n<tr>} if $_ % $cols == 1;
11 $html .= qq{</tr>\n</table>};
16 my $html = qq{<table border=1>\n<tr>};
17 foreach my $row ( @_ ) {
18 $row =~ s{\t}{</td><td>}g;
19 $html .= qq|<tr><td>$row</td><tr>\n|;
21 $html .= qq|</table>|;
27 qq|<tt>| . join(' ', @_) . qq|</tt>|;