Select Code to Download

######################################################################
+######
sub print_form                                                     
######################################################################
+######
 {

my $output_file = "template.sthml";
open(OUTPUT, "$output_file") || print "There is no file here, I'll run
+ away now!";

$table_rows = &add_row;

while(<OUTPUT>) {
     
...
    print  $_;
    
    }

    s/<!-- (TBROWS) \/\/-->/$table_rows/g; 
    print;