i've gotten some mileage from this code at nt shops in the past. you need to be careful to use the proper case in file/directory names, as 'Blah' and 'blah' are different in find, even though NT doesn't differentiate.

#!/usr/bin/perl
use strict;
use warnings; # use -w instead for perl < 5.6.0
use File::Find;

# the dir you're 'find'ing from
my $dir = shift || '.';

# the file you're looking for
my $file = 'blah';

# the results you want
my @results;

# the function you perform on each find value
sub looking_for_blah
{
    # return the full path name if the filename is blah
    push(@results, $File::Find::name) if(-f $_ && $_ eq $file);
};

# the result you want, using File::Find::find()
#   (not the external 'find' program)
find \&looking_for_blah, $dir;

# print your results
print("my results are: @results\n");
[download]

~Particle