Select Code to Download

chdir $f_path;
foreach my $file_name (glob "*.*") {
...
my $sth = $sbh->prepare ("select * from cells");
$sth->execute;
print "fields: @{[@{$sth->{NAME_lc}}]}\n";