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

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>";