File Key.pl

# make a little code system using a lot of dir

sub makeMess {
    my $dep = shift;
    if ($dep != 0) {
    for(my $c=0; $c<10; $c++) {
	mkdir("$c");
	chdir("$c");
	makeMess($dep-1);
	chdir("..");
    }
    }
}

makeMess(6);