#!D:/Programs/PERL/bin/perl.exe -w

use File::stat;

my $dir = "D:/";
opendir(DIR, $dir) or die $!;
while(defined (my $file = readdir(DIR)))
{	
	print "$file\n";
	if(-d "$file")
	{
		print "directory found....\n";
	 	opendir(newDIR, $file) or die $!;
		while(defined ($file = readdir(newDIR)))
		{
			print "got new file!!!!\n";
			print "$file\n";
		}
		closedir(newDIR);
	}
	
}
closedir(DIR);