#!/usr/local/bin/perl
$com="dir /A:D /O:N /B >dirlist.txt";
system ($com);
open (DRR, "dirlist.txt");
open (OUT, ">batch.bat");
print OUT "md output\n";
my @alldir=<DRR>;
$num=@alldir;
$inc=0;
while ($inc < $num)
{
$line = @alldir[$inc];
$line =~ s/\n//;
print OUT "copy \"$line\\time1.tif\" \"output\\$line.tif\"\n";
++$inc;
}
close (OUT);
close (DRR); 
$com="del dirlist.txt\n";
system($com);