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'>";
    }
}