#!/usr/bin/perl -Tw

print qq(content-type:text/html; charset=utf-8\n\n);

use strict;
use CGI;
use Net::Whois::Raw;

# Net::Whois::Raw options ...

my $q = new CGI;
my $domname = $q->param("domname");


if (!$domname){print "";}else{
my $text = get_whois($domname, undef, "QRY_LAST");
print $text;
}