Select Code to Download

my @rows;
my $z = @rows;  # There is nothing in @rows yet, so $z is 0
...
print "<input type=\"button\" value=\"  Try again  \" onClick=\"histor
+y.go(-1)\">\n";
print "$tbl_ref\n";
}

my $column = ( $type eq 'alpha' ) ? 'name' : "CONCAT_WS(' ',keywords,c
+ategory)";

...
if ( ref( $table_ref ) ne 'ARRAY' or @$table_ref == 0 ) {
    ...
}

   name1   name2
   name3   name4
   ...

for my $table_row ( @$table_ref ) {
    my @table_cols = map { (defined($_) && /\S/) ? $_ : ' '} @$ta
+ble_row;
...
    push @rows, Tr( \@table_cols );
}
$page .= "<b>" . table( {-border => 0, width=> 550}, \@rows) . "</b>" 
+. br();

    $page .= '  ' x 35;