Select Code to Download

$sth->execute($id) or err_trap;
$sth->bind_col(1, \my $e_mail);
...
while ($sth->fetch) {
  print "$e_mail\n";
}

while (my ($e_mail) = $sth->fetchrow_array) {
  ...