#
use File::Find;
#

find(\&get_this,".");

#
sub get_this {

if( -d $_ ) {
	opendir(DIZ,$_);
	DIREL:
	while( $del = readdir(DIZ) ) {

	if( $del =~ m/\.xxx$/ )  { 
		print "$File::Find::name\n" ;
		$File::Find::prune = 1;

		system("echo \"-------------------------------------------------\" >> \"/Volumes/Expansion\ Drive/stuffTGZ/list_xxx_dirs.txt\"");
		system("echo \"- $File::Find::name -----------------------------\" >> \"/Volumes/Expansion\ Drive/stuffTGZ/list_xxx_dirs.txt\"");
		my @syscmd = ("/bin/ls","-l","$File::Find::name",">>","/Volumes/Expansion\ Drive/stuffTGZ/list_xxx_dirs.txt") ;
		system(@syscmd);

		last DIREL;
	}

	}
	
	closedir(DIZ);
}

}