#!/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 "copy C:\\scripts\\myprocess.eas script.eas /y\n";
print OUT "C:\\Geomatica_V91\\exe\\easi.exe r script\n\n";
print OUT "del script.eas\n\n";
print OUT "del prm.prm\n\n";
print OUT "cd ..\n";
++$inc;
}
close (OUT);
close (DRR);
$com="del dirlist.txt";
system($com);