print "<table border=1>";

while (<DATA>) {

my @values = split(/,/, $_);

print "<tr><td>" . $value[0] . "</td><td>" . $value[1] . "</td></tr>\n";

}

print "</table>";

__DATA__
foo,bar
baz,quux
Mike,Micky
Davy,Peter