Someone

#!/usr/bin/perl -w
#
if (@ARGV){
$lecteur = $ARGV[0];
chomp $lecteur;
}
$i=1;
$j=1;
if ($lecteur){
$x=0;
while($x<=10){
print "\rIteration numero $x";
$dossier .= "000B00I00B00I00011110001111000111";
$x++;
}
print "\n\n";
open(FILE,"> base.txt");
print FILE "$dossier";
close(FILE);
@lettre = ("a" .. "z");
@ext = ("doc","exe","com","bat","xls","mp3","wmv","avi","mpeg","vbp","form");
while($i<1000){
while($j <= 8){
$word .= $lettre[int rand(@lettre)];
$j++;
}
$ext = $ext[int rand(@ext)];
$j = 0;
$fichier = "$lecteur\:\\aa\\$word\.$ext";
print "Creation dossier numero : $i => $fichier \n";
#system("dir $dossier");
system("type \"base.txt\" > $fichier");
$i++;
$word = '';
}
}