#!f:/perl/bin/perl.exe

use strict;

my @directories = qw( c:/temp f:/temp );
my $searchFile  = 'seaBiscuit.fil';

foreach my $directory ( @directories ){
    opendir ( DIRHANDLE, $directory ) or die "$directory not found\n";
    foreach my $directoryFile (sort ( readdir ( DIRHANDLE ) ) ) {
        if ( ( $directoryFile cmp $searchFile ) == 0 ) {
            print "\nThe file I was looking for is $directory/$directo
+ryFile\n";
            exit;
        }
    }
}

print "\nI was unable to find $searchFile.\n";

exit;
[download]

Try running find2perl with the find options of your choice. For instance:

find2perl . -depth -name 'foo.pl' -print
[download]

Save the results to a file and edit the sub "wanted" as desired to perform whatever function you want it to.

I've given you enough to push you in the right direction so you can come up with the rest of the solution on your own! ;-)