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;
}