#!/usr/local/bin/perl

$com="dir /A:D /O:N /B >dirlist.txt";
system($com);

open (DRR, "dirlist.txt");
open(OUT, ">batch.bat");
my @alldir=<DRR>;
$num=@alldir;
$inc=0;

while ($inc < $num)
				{
$line = @alldir[$inc];
$line =~ s/\n//;

print OUT "cd $line\n";
print OUT "del /Q *_nn6*\n";
print OUT "del /Q *_nn8*\n";
print OUT "del /Q *_nn1*\n";
print OUT "del /Q *.jpg\n";
print OUT "del /Q *.met\n";
print OUT "del /Q *.hdr\n";
print OUT "del /Q *.i*\n";
print OUT "C:\\WinRAR\\winrar.exe e -ibck *.gz\n";
print OUT "del /Q *.gz\n";
print OUT "cd ..\n";
++$inc;
}
close (OUT);
close (DRR);
$com="del dirlist.txt";
system($com);