Select Code to Download

use KAP; #internally developed library.
use Date::Manip; #internally developed library.
...
use DBD::CSV;
use MIME::Lite;
use Net::SMTP;

use strict;
use DBI;
...
};
my $results = $sth->fetchall_arrayref;
print Dumper $results;