$path=`cd`;
	print $path;
	
	my %files = Recurse(["$path"], 
	{
		match => '\.', nomatch => ''
	}); 

	foreach (sort keys %files) 
	{ 
		print;
                foreach (@{ $files{"$_"} }) 
		{ 
			$files=$_;
			my $fullname="$dirs"."\\"."$files";
			print $fullname;
		}    	
	}