my $whois    = Net::XWhois->new(...);
my $orgname  = do { my $m = "org-name"; $whois->$m };