Changing my $w = new Net::Whois::Domain $domain; to
my $w = new Net::Whois::Domain $domain or die "Can't connect to Whois server\n";
should be sufficient to explain it to you. :)