Select Code to Download

$ whois x.x.x.x
[Querying whois.server.net]

open FH, "whois x.x.x.x 2>&1 |";
my $ofh = select FH;
...
    print;
}
close FH;

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