#!/usr/local/bin/perl

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

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

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

$com="dir $line\\*.tif /B >dirlist$inc.txt\n";
system($com);
$newname="dirlist$inc.txt";
open (FRR, $newname);
my @files=<FRR>;
$num1=@files;
$inc1=0;
while ($inc1 < $num1)
				{
$line1 = @files[$inc1];
$line1 =~ s/.tif\n//;
$com = "C:\\Gzip\\gzip $line\\$line1.tif\n";
system($com);
++$inc1;
}
++$inc;
}
close (DRR);
close (FRR);
$com="del *.txt\n";
system($com);