Select Code to Download

print $query->table(
  $query->Tr(
    $query->td({width=>"15%"}, "1"),
    $query->td(                "2"),
  ),
);

my @rows;
foreach my $no (qw( one two three )) {
  push @rows, $query->td( $no );
}

print $query->table( $query->Tr( \@rows ) );