sub write1 {
    my $STH = shift;
    while ( @data=$STH->fetchrow_array() )

    {
        print "<CENTER>";
        print "<TR>";
        print "<TD BGCOLOR='red'>";
        print "<P ALIGN='CENTER'>";
        print "<FONT COLOR='white'>";
    }
}

##</code><code>##

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

        {
            print "<CENTER>";
            print "<TR>";
            print "<TD BGCOLOR='red'>";
            print "<P ALIGN='CENTER'>";
            print "<FONT COLOR='white'>";
        }
    }
}