Select Code to Download

sub write1 {
    my $STH = shift;
    while ( @data=$STH->fetchrow_array() )
...
        print "<FONT COLOR='white'>";
    }
}

 sub write1 {
    foreach my $STH ($STH1, $STH2, $STH3) {
        while ( @data=$STH->fetchrow_array() )
...
        }
    }
}