[PERL] Comment creer dossier s il existe pas!

Bonjour,

Je suis débutante en Perl.

J'ai réussis a ouvrir le dossier (s'il existe) pour me lister les fichiers qu'il y a dedans!! Seulement lorsque le dossier n'existe pas, cela me plante le programme.
J'aimerai donc si le dossier demandé n'existe pas, le créer de façon a ce que mon programme continue a tourner!!

Voici mon morceau de code qui me permet de lister les fichiers qui sont dans le dossier:

opendir (DIR, $sDossier) || die("Impossible d'ouvrir $sDossier...");
while (($file = readdir (DIR))) 
{
	  print ("$file \n");
}
closedir (DIR);