#!/usr/bin/perl

print "Inside the cgi-bin script";

$query_string = $ENV{'QUERY_STRING'};
($lookup, $name) = split (/=/, $query_string);

print "Content-type: text/plain", "\n\n";

if ($name =~ /[;><&\*`\|]/) {
   print "What exactly are you attempting to do?", "\n";
   exit(0); }

print `whois $name`;

exit(0);