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;