my $host = 'www.lexicon.co.uk';
my @parts = split /\./, $host;

my $domain = pop @parts;
my $whois = '';

while (@parts and not $whois) {
  $domain = pop(@parts) . ".$domain";

  $whois = Whois($domain);
}

print $whois;