#!/usr/bin/perl

use strict;
use warnings;

use Domain::PublicSuffix;

my $domain_name = shift(@ARGV);
usage('Requires a domain name to continue.') unless ( defined $domain_name );

my $suffix = new Domain::PublicSuffix;

printf( "%12s: %s\n", 'Domain', $domain_name );
my $root_domain = $suffix->get_root_domain($domain_name);

if ( defined $suffix->error ) {
    printf( "%12s: %s\n", 'Error',       $suffix->error );
} else {
    printf( "%12s: %s\n", 'Root Domain', $root_domain );
    printf( "%12s: %s\n", 'Suffix',      $suffix->suffix );
    printf( "%12s: %s\n", 'TLD',         $suffix->tld );
}

sub usage {
	my ( $error ) = @_;
	
	print "get_root_domain - Domain::PublicSuffix " . $Domain::PublicSuffix::VERSION . "\n";
	print "Usage: get_root_domain <domainname>\n";
	
	exit(0);
}

1;
