Select Code to Download

    $msg .= $cgi->table({-border => 1, bgcolor => $c1, style => "Color
+: $c2;"}, $cgi->Tr(form_table_data($select_msg, 20, $user, $user)));

sub form_table_data {
    my ($statement, $max_number_of_rows, @parameters) = @_;
...
    push @$table_data, $cgi->td($rows->[$_]) for (0 .. $#$rows);
    return $table_data;    
}