#!/usr/bin/perl
print "Content-type:text/html\n\n";

read(STDIN,$buffer,$EMV{'CONTENT_LENGTH'});
open(S,"/usr/bin/whois $buffer |");
while(<S>) {
print "$_";
}
close(S);


obshto vzeto e tova.. trqbva ti samo linux box s whois..
ima i drug variant da ne polzvash whois-a na mashinata a da prashtash na nqkoi script na daden site da vurshi taq rabota... no puk stavash zavisim ot nekuv site..