Tаблица умножения

                        
#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/plain; charset=utf-8\n\n";

$x=0;

open(LOG,">>tabl.txt");

while($x<10) {

$x++;

print(LOG "тaблицa yмнoжeния нa $x\n\n");

$y=1;

while($y<10) {

$z=$x*$y;

print(LOG "\t $x X $y = $z\n");

$y++;

}

}

print "ok\n";

close(LOG);