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

sub wanted
{
  print "$File::Find::dir $_\n";
}