[Perl] trace directory

	&trace('.');
	sub trace {
	my $dir = shift;
	for (<$dir/*>) {
	&trace($_) if -d $dir;
	}
	print $dir."\n";
	}

view raw trace.pl hosted with ❤ by GitHub