print "<table border=1>\n".
      "  <th>carrier</th>\n".
      "  <th>boxno</th>\n".
      "  <th>listno</th>\n".
      "  <th>shipno</th>\n".
      "  <th>custno</th>\n";

while (my$hash_ref = $sth->fetchrow_hashref) {
  print "  <tr>\n";
  print "    <td>$hash_ref->{carrier}</td>\n";
  print "    <td>$hash_ref->{boxno}</td>\n";
  print "    <td>$hash_ref->{listno}</td>\n";
  print "    <td>$hash_ref->{shipno}</td>\n";
  print "    <td>$hash_ref->{custno}</td>\n";
  print "  </tr>\n";
}

print "</table>";