#!/usr/bin/perl

use strict;
use DBI;

my @drivers;
@drivers = DBI->available_drivers;

foreach my 

#!/usr/bin/perl

use DBI;

$dbh = DBI->connect('dbi:mysql:database', 'username', 'password',
       

#!/usr/bin/perl

use DBI;

$dbh = DBI->connect('dbi:mysql:database', 'username', 'password',
       

#!c:/perl/bin

use DBI;
use strict;
# Ouvrir une connexion sur la base de données 'Ventes'
my $db_co

#!/perl/bin
use DBI;
use strict;

# Ouvrir une connexion sur la base de données Oracle 'Ventes'
my $

#!/perl/bin

use DBI;
use strict;

# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $

#!/perl/bin
use DBI;
use strict;

# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $d

#!/usr/bin/perl
use warnings;
use strict;
use DBI;

# Ouvrir une connexion sur la base de données 

#!/usr/bin/perl
use warnings;
use strict;
use DBI;

# Ouvrir une connexion sur la base de données M

#!/usr/bin/perl
use DBI;

$csv_connect = DBI->connect("dbi:CSV:f_dir=c:/test.csv", "", "",