Select Code to Download

my $sth = $dbh->prepare ("select * from foo");
   $sth->execute;
...
    local $" = ",";
    $dbh->prepare ("insert into foo (@fld) values (@{[('?') x scalar @
+fld]})");
    };