Select Code to Download

#!/perl
use strict;
...
  print "[$dir] $File::Find::dir $File::Find::name\n";
}

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

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

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