my $customer_id;
$customer_id = param("customer_id");

##</code><code>##

{
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 ();
}