Help for this page
push @rows,Tr(td([$cell1,$cell2,....$cell6]));
print FH table(@rows)
print FH '<TABLE>',@rows,'</TABLE>';