Select Code to Download

my %hash = %{$sth->fetchrow_hashref()};

while (my $row = $sth->fetchrow_hashref()) {
   my $mail = $row->{mail};
   print "$mail\n";
}