sub search {
    my $file = $File::Find::name;
    unless ( open FILE, "< $file" ) {
        carp "Error opening $file for reading - $!\n";
        return;
    }
    local $/; # sluurp (if appropriate)
    my $line = <FILE>;
    close FILE;
    print "$text - $file"
        if $line =~ /$text/;
}