#!/usr/local/bin/perl

require "common.pl";

&parse_form_data(*simple);
$user = $simple{'user'};

print "Content-type: text/plain", "\n\n";
print "Here are the results of your query: ", "\n";
print `/usr/local/bin/finger $user`;

print "\n";
exit (0);