#!/perl
use strict;
use warnings;

use File::Find;

my $dir = qw(N:/TMP);
find( \&wanted, $dir );

sub wanted
{
  print "[$dir] $File::Find::dir $File::Find::name\n";
}


##</code><code>##

my @dir = ( qw( N:/TMP N:/TMP_2 ));
for my $dir ( @dir)
{
  find( \&wanted, $dir );
}

##</code><code>##

Global symbol "$dir" requires explicit package name at ...

##</code><code>##

for my $dir ( @dir)
{
  find( sub {print "[$dir] $File::Find::dir $File::Find::name\n";}, 
  $dir );
}