The other way you can do it ... and there are pretier ways then this I'm sure, but it will work:

{
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
  }

}
[download]

You might have an old version of the DBI module. Either upgrade it or use the first solution that pzbagel wrote you.

Michele.

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";
}
[download]

fetchrow_arrayref() returns you an array reference, so you should use it in a way like this:

while (my $track_ref = $sth->fetchrow_arrayref ()) {
    print $$track_ref[0]; # This prints the first field
    print $$track_ref[1]; # This prints the second field
    # ...and so on
}
[download]

If you plan to use this method, it's a good practice to avoid SELECT *, and specify in the query all the fields in the order you expect them to be. It works even with the first syntax, however you're going to need to adjust your code if for some reason you recreate your table with a different field order or with additional fields inserted in the middle.

Michele.