Select Code to Download

       my $my_table = $dbh->prepare("select * from my_table where id =
+ ?");
       $my_table->execute($nm);
       while(@data = $my_table->fetchrow_array){
...
            map{print "$_\n";}@data;
     
       }