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

##</code><code>##

use strict;
use DBI;
use Data::Dumper;
my $dbh = DBI->connect(...);
my $sp = 'lv..check_tax_lot';
warn "Preparing [$sp]";
my $sth = $dbh->prepare($sp);
warn "Running [$sp]";
my $res = $sth->execute();
warn "Got results ($res):";
if (! $res) {
    die $sth->errstr;
};
my $results = $sth->fetchall_arrayref;
print Dumper $results;