open FH, "whois x.x.x.x 2>&1 |";
my $ofh = select FH;
$|=1;
while (<FH>) {
    print;
}
close FH;
[download]

Turn on warnings and you'll see exactly what the problem is with this piece of code.