Select Code to Download

   while (@data = $sth->fetchrow_array()) {

...
      }
  
 }

#!/usr/bin/perl

...
                                             
   $sth->finish();
   $dbh->disconnect();