for (my $pointer = 0; $pointer < length($write); $pointer++) {
 syswrite (WHOIS, $write, 1, $pointer);
 }