#!/usr/bin/perl
use File::Find;     
my $dir = 'H:\\';
find(\&search_sub,$dir);
sub search_sub {
print if /^SETUP/i
}