print qq(<table>) ;
for my $a ( 1 .. 10 ) {
  print qq(<table><tr>) ;
  for my $b ( 1 .. 10 ) {
    my $c = $a * $b ;
    print qq(<td> $c </td>) ;
    }
  print qq(</tr>) ;
  }
print qq(</table>) ;