my $generator = <<'END_GENERATOR';

my $self = <<"END_SELF";
my \$generator = <<'END_GENERATOR';
${generator}END_GENERATOR

eval \$generator;
END_SELF

print $self;
END_GENERATOR

eval $generator;

##</code><code>##

use DBI;
my ($connect_string, $table, @columns) = @_? @_: @ARGV;
my $dbh = DBI->connect(
    "dbi:ODBC:$connect_string",
    undef,
    undef,
    { RaiseError => 1 },
);

my @placeholders = map {'?'} @columns;
my $insert_statement = do {
    local $" = "\n, ";
    "Insert into $table (@columns) values (@placeholders)";
};
my $sth = $dbh->prepare($insert_statement);

while (<>) {
    chomp;
    my @values = split /\t/;
    $sth->execute(@values);
}

##</code><code>##

my $root;
BEGIN {
    use FindBin;                
    ($root) = $FindBin::Bin =~ m{ (.* racine) [\\/] }imsx;
}
use lib "$root/Jobs/Perl/lib";