dir_walk.pl example ready