|
#!/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>"; } |