#!perl
use CGI qw /:standard -nph/;
 $|++;
 $POST_MAX=100;
 $DISABLE_UPLOAD=1;
 
 print header();
print start_html(-title=>'*modifica',-bgcolor=>"#000099",-text=>"#FF9933");


print start_form(-method=>'POST',-action=>url(-relative=>1),-name=>'form1');    ######## oOOOo ####
print 'insert a little number '.url(-relative=>1).br;
    print textfield(-name=>'numero',-value=>"");
    print submit(-value=>' crea tabelline');

if (defined param('numero')){&tabell()}

##########################################
sub tabell{                   ############  "#000000"
 $x=param('numero');
 for $uno(1..$x)
   {
   for $due(1..$x)
    {$array[$uno].=td($uno*$due)}
   }
   print table({-title=>'oOOOo',-bgcolor=>"#000000",-border=>1,-bordercolor=>"red",-width=>"80%", -cellspacing=>"0", -cellpadding=>"0"},
   Tr({-align=>'CENTER'},[@array]));
}
##########################################

print end_html();