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

##</code><code>##

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

##</code><code>##

$table_rows = &add_row;

##</code><code>##

while(<OUTPUT>) {
     
    $_=~s/<!-- (TBROWS) \/\/-->/$table_rows/g; 

    print  $_;
    
    }

##</code><code>##

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