Select Code to Download

   my ($dbh, $field_str, $where_str, $href) = shift;

         ## instead of

   my ($dbh, $field_str, $where_str, $href) = @_;

#initial stuff
#...
...
   $sth->finish
      or die "Could not finish '$query'\n";
}