Select Code to Download

 my $sth = $dbh->prepare( 'select * from foo' );
 $sth->execute;
...
    print "$fieldnames->[ $_ ] is $row->[ $_ ]\n";
   }
 }