print $hSocket ($sWhoisParam . "\r\n");