#!/usr/bin/perl

use CGI ':standard';

print header(), start_html("File search");

if (param()) {
  my $file = param("upload");
  my $word = param("keyword");
  print h1("Searching <tt>$file</tt> for <tt>$word</tt>");
  print "<pre>\n";
  while (<$file>) {
    s/&/&amp;/g;
    s/"/&quot;/g;
    s/</&lt;/g;
    s/>/&gt;/g;
    s{$word}{<b>$&</b>}ig;
    print;
  }
  print "</pre>\n";
  print hr();
}

print start_multipart_form(-method => 'POST'),
      "Word to search for?", textfield('keyword'), br(),
      filefield('upload'),  br(),
      submit("Search"),
      end_form();

print end_html();