$/ = "\r";
while ($line=<F>)
{  
	chomp $line;

    print OUTPUT "<tr>";
    my @cells= split ',',$line;
    foreach my $cell (@cells)
    {
       print OUTPUT "<td>$cell</td>";
    }
    print OUTPUT "</tr>\n";
}