Select Code to Download

my $generator = <<'END_GENERATOR';

...
END_GENERATOR

eval $generator;

use DBI;
my ($connect_string, $table, @columns) = @_? @_: @ARGV;
...
    my @values = split /\t/;
    $sth->execute(@values);
}

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