use File::Find;
    
    find(\&handleFind, '../');

    sub handleFind
    {
        my $foundFile = $File::Find::name if 'VCVARS32.BAT';
        print "$foundFile\n";
    }