Select Code to Download

my @FIELDS = qw( field1 field2 field3 );
my @PLACEHOLDERS = ('?') x @FIELD;
...
     local $" = ',';
     "INSERT (@FIELDS) INTO foo VALUES (@PLACEHOLDERS)";
};

{
    my $SQL;
...
        $sth->finish;
    }
}