Mmmmm Burgergold ça marche pas j'ai une erreur 500...
Je ne sais pas trop où mettre ton code, voici le mien :
=====================================================
#!/usr/bin/perl
use CGI;
use DBI;
use LWP::Simple;
use URI::Escape;
unshift(@INC,"/home/machin/truc/cgi" );
require('xxx.pl');
require('yyy.pl');
$mailprog = "/usr/sbin/sendmail";
my $q=new CGI;
@param = $q->all_parameters();
foreach $valeur(@param){
$in{$valeur} = $q->param("$valeur" );
}
$|=1;
######
$database="bidule";
$hostname="truc";
$port="truc";
$data_source="DBI:mysql:$database:$hostname:$port";
$username="bidule";
$password="machin";
$dbh = DBI->connect($data_source, $username, $password) or print "Connection a la DB bidule impossible\n";
#####
=======================================================
Merci pour ton aide précieuse et bonne fin de journée,
Dex