walks a directory structure

walker.pl

@queue = ('.');
while(my $path = shift(@queue)) {
    if(-d $path) { 
	opendir D, $path;
	foreach(readdir D) {
	    push @queue, "$path/$_" unless /^\.\.?$/;
	}
	closedir D; 
	next;
    }
    print "$path\n";
}