$sth->execute($id) or err_trap;
$sth->bind_col(1, \my $e_mail);

while ($sth->fetch) {
  print "$e_mail\n";
}