Select Code to Download

my $i = 0;
while( @data = $query->fetchrow ) {
...
        <td width=50 align=left>$data[4]</td>
        </tr>   )  
}

while( @data = $query->fetchrow ) {
$rowcolor = $rowcolor == $color2 ? $color1:$color2;
print REPORT_FILE qq(