Select Code to Download

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

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