my $failure = is_taken($domain);

print "Failed: $failure\n" if $failure;

##</code><code>##

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