$numarchive = 1 ;
   $nomarchive = "tout".sprintf("%03d",$numarchive).".zip" ;

   while (-s $nomarchive) {
      $numarchive++ ;
      $nomarchive = "tout".sprintf("%03d",$numarchive).".tar" ;
   } ; # fin de tant que
   $specfic = "*" ;
   system("zip $nomarchive $specfic -x *.zip") ;
   print " sauvegared des fichiers $specfic dans $nomarchive terminée\n" ;