   $numarchive = 1 ;
   $nomarchive = "lesxml".sprintf("%03d",$numarchive).".tar" ;

   while (-s $nomarchive) {
      $numarchive++ ;
      $nomarchive = "lesxml".sprintf("%03d",$numarchive).".tar" ;
   } ; # fin de tant que
   $specfic = "*.xml" ;
   system("tar -cf $nomarchive $specfic") ;
   print "[perl] archivage des fichiers $specfic dans $nomarchive terminée\n" ;
