#!/usr/bin/perl -Tw
use CGI::Carp qw(fatalsToBrowser);

use CGI qw(:all); 
$ENV{PATH} = "";
if (my ($name) = param('keywords') =~ /(\w+)/) {
  print header,
    h1("Results of finger"),
    pre(escapeHTML(scalar `/usr/bin/finger $name`));
} else {
  print header(-status => '403 Forbidden');
}