#!/usr/bin/perl



use strict;

use DBI;



#my $db = DBI->connect("dbi:ODBC:SQLServer7Transition","","") or die "Erreur de connexion\n";



#print "Connexion réussi!\n";



#$db->disconnect() or warn "Erreur dans la deconnexion\n";



#my $Requete = $db->prepare( "SELECT nom, prenom FROM CategorieEmploi" );



#$Requete->execute();



print "Allo";