#! perl -w
for$i(1..5){
print "<tr>";
for$j(1..10){
$x=rand 1;
$ss=sprintf("%4.2f",$x);
print "<td>$ss</td>";
}
print "</tr>\n";
}
