open FH, "whois x.x.x.x 2>&1 |";
sysread FH, $output, 4192;
close FH;