You're nearly there. This will work with my cd on H:

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