gistfile1.pl

use strict;
use warnings;
use Win32::Unicode;

my $dir = '.';
my_find($dir);

sub my_find {
    my ($dir) = @_;

    chdirW $dir or die "$dir: $!";
    sayW "dir: $dir";

    my $wdir = Win32::Unicode::Dir->new;
    $wdir->open('.');
    my @files = $wdir->fetch;
    $wdir->close;

    sayW join "\n", map { "[$_]" } @files;

    for my $file (@files) {
        next if $file =~ /^\.{1,2}$/;
        next unless file_type d => $file;
        my_find($file);
        chdirW '..' or die "$file/../: $!";
    }
}