Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl5

...
}

exit;
```

Select or download this

...
open(FILE, $file);
...
if ($file_contents =~ m|$search_term|is) {
  push @match, qq(<A HREF="$file">$title</A><BR>\n);
}