Select Code to Download

my $failure = is_taken($domain);

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

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