#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
local($name, $getwww) = split(/=/, $pairs[0]);
@w = split(/%0D%0A/, $getwww);
print "Content-type:text/html\n\n";   
foreach $www (@w) {
  $www = join '',"www.",$www;
  ($name,$alias,$atype,$len,$addr)=gethostbyname($www);
  ($a,$b,$c,$d)=unpack("C4",$addr);
  print "<b>IP</b> of $www = $a.$b.$c.$d<br>"; 
}