Select Code to Download

sub __select_recordset{
    my $loc_select = shift;    #SQL SELECT clause
...
    $loc_sth->execute() or die "Can't execute sql statement" . DBI->er
+rstr;
        return $loc_sth;
}

sub select_record_set
{
...
   # why do you need the $SQL vars above? Prepare the statement and
   # then run it.
}