sub get_customer
{
my ($dbh, $track_ref) = @_;

$dbh = WebDB::connect ();
my $sth = $dbh->prepare ("SELECT * FROM Shipments WHERE customer_id = ?");
$sth->execute($customer_id);
while (my $track_ref = $sth->fetchrow_arrayref ())
print p $customer_id,
print p $customer_item_number,
print p $tracking_number,
"\n";
}