my $tld = public_suffix($hostname)
    or die "Invalid TLD found in '$hostname'";
$hostname =~ /([^.]+).\Q$tld\E$/
    or die "Couldn't find domain name in '$hostname'";
my $domainname= $1;
print "Domain name is $domainname.$tld\n";