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

$dbh = WebDB::connect ();
my $sth = $dbh->prepare ("SELECT * FROM Shipments WHERE customer_id = ?");
$sth->execute($customer_id);

while($track_ref = $sth->fetchrow_hashref) 
  {
  .. do stuff with each row returned here
  }

}