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

##</code><code>##

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