Update:

while (@row = $sth->fetchrow_array)
{     
  print "@row\n" 
}
[download]

to:

while ($ref = $sth->fetchrow_hashref()) {
  print "Name: $ref->{'name'}\n";
  print "Address: $ref->{'address'}\n";
  print "Tel: $ref->{'tel'}\n";
  print "Email: $ref->{'email'}\n\n";
}
[download]

I've always used fetchrow_hashref instead. Its easier since you can visually see what fields your reference in the $ref->{'TABLE_FIELD_NAME'} instead of @row array.

You may need to change what's in the $ref-> since I don't know what your field names are.

Hope this helps