¡¡Hola!! No sé si alguien pudiera echarme la mano con este módulo del file grep. Lo que hice fue poner de manera local unos archivos txt, dentro de una carpeta, entonces escribí el siguiente código:
#!C:\perl\bin\perl.exe -X
use cgi;
require "divs.pl";
use CGI::Carp "fatalsToBrowser";
use File::Grep qw( fgrep fmap fdo );
print "Content-type: text/html","\n\n";
my @matches = fgrep { /GOBIERNO/} glob "C:\AppServ\www\pdf\*txt";
print SUMMARY $_ foreach @matches;
donde le estoy diciendo que quiero buscar la ...