WHOIS Inquiry

#!/usr/bin/perl use CGI; my $query = new CGI; my $keyword = $query->param('keyword'); my $queryval = "=\"$keyword\""; my $randlock = int(rand 9999); my $queryfile = "/tmp/query$randlock"; print "Content-type:text/html\n\n"; print "WHOIS Inquiry"; print "

";
 
        system( "/usr/bin/whois -h ds4.net.ohio-state.edu $queryval > $queryfile"); 
        open( QUERY, $queryfile) || die "can't open $queryfile ($!)\n";
 
     
while(  ) {
        print "$_";
}
 
print "

"; print ""; print ""; close( QUERY ); unlink( $queryfile ); exit 0;