#!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]

Chris
'You can't get there from here.'