#!/usr/pkg/bin/perl

print "<table border=\"1\">\n";

$first_line = <>;
print "<tr>\n";
foreach $entry (split(/	/, $first_line)) {
  print "<td><b>$entry</b></td>\n";
}
print "</tr>\n";

foreach $line (<>) {

  print "<tr>\n";
  foreach $entry (split(/	/, $line)) {
    print "<td>$entry</td>\n";
  }

  print "</tr>\n";

}

print "<tr>\n";
foreach $entry (split(/	/, $first_line)) {
  print "<td><b>$entry</b></td>\n";
}
print "</tr>\n";

print "</table>\n";