$sth->execute();
my @ary= $sth->fetchrow_array();
if(  @ary  ) {
    open(MAIL,"|$mailprog -t");
    print MAIL ...
    do {
        print MAIL join ("\t", @ary), "\n";
    } while(  @ary = $sth->fetchrow_array()  );
    print MAIL "\nEND OF SCHEDULED EVENTS!\n";
    close(MAIL);
}
$sth->finish();