{ my ($dbh, $track_ref) = @_; $dbh = WebDB::connect (); my $sth = $dbh->prepare ("SELECT * FROM Shipments WHERE customer_id = ?"); $sth->execute($customer_id); $track_ref = $sth->fetchrow_hashref (); }