#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
local($name, $getip) = split(/=/, $pairs[0]);
@i = split(/\./, $getip);
$ip = pack("C4", $i[0], $i[1], $i[2], $i[3]);
($name,$alias,$atype,$len,$addr)=gethostbyaddr($ip,2);
print "Content-type:text/html\n\n";   
print "<b>Name</b> of $i[0].$i[1].$i[2].$i[3] = $name";