sub get_customer
{
my ($dbh, $track_ref, @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_array ()){
print table ({-border => 0},
   Tr ({-align => "CENTER",  -valign=>"TOP",  -BGCOLOR=>"silver",  -style=>"font-family: verdana; font-size: 10pt;"},
                                             
                        th ({-width=>"50"},("Customer ID")),
				th ({-width=>"50"},("Carrier")),
                        th ({-width=>"90"},("Tracking Number"))                                  
			));
print table ({-border => 0},
    Tr ({-valign=>"center", -style=>"font-family: verdana; font-size: 10pt;"},
                               
            td ($track_ref[7]),
            td ($track_ref[3]),
		td ($track_ref[4])
				));
}

print start_form (-action => "http://wwwapps.ups.com/tracking/tracking.cgi", -method => "POST"),
       table (
          Tr (
              td ("UPS Tracking Number:"),
              td (textfield (-name => "tracknum"))
        ),
       ),
      submit (-name => "choice", -value => "Track"),
    end_form ();

}