use strict;
use warnings;
use Test::More;
use threads;
use Win32::Unicode::Native;

my @threads;
for (1..20) {
    push @threads, threads->create(sub{
        note "spawned thread : " . threads->tid;
        my $tid = threads->tid;
        find +{
            wanted => sub {
                note sprintf 'spawned thread : %02d ( file: %s )', $tid, $_[0]->{path};
            },
            no_chdir => 1,
        }, 'lib';
    });
}

for my $thr (@threads) {
    note "joining thread : " . $thr->tid;
    $thr->join;
}

ok 1;

done_testing;