if ($domain) {
   open(LKUP, "-|") || exec("ls"); #exec("whois", $domain);
   print while <LKUP>;
}