unless (lookup($domain)) {
   print $@ ? "$domain lookup failure: $@\n" 
            : "$domain is available!\n";
}