#!/usr/bin/env perl
#!/usr/bin/perl

# Converts a table of tab separated values into HTML.

print "<table>\n";
print "<!-- generated from plain text by tsv2html.pl -->\n"
print "<!-- Blossom Associates West -->\n"
while (<>) {
  s-^-<tr><td>-;
  s-$-</td></tr>-;
  s-\t-</td><td>-g;
  print;
}
print "</table>\n";