Select Code to Download

while ( my $ref = $self->fetch_assoc($sth) )

my $dbh = DBI->connect(@db_args);
my $sql = "SELECT email FROM database.table";
...
$sth->execute();
while (my $hashref = $sth->fetchrow_hashref) {
    ...

my $sth = $db->query($sql)...