Select Code to Download

#!/usr/bin/perl
use DBI;
...
}

emailing dude@oops.no
emailing foo@bar.com
I have emailed dude@oops.no
I have emailed foo@bar.com

my $SENDTO = ""; # start with empty string
while (my @row = $sth->fetchrow_array) { # retrieve one row
...

$log = $SENDTO;
&log_it;