use URI;
for (URI::->new($conf[1],"http")) {
 my @domain = split /\./, $_->host;
 my $tld = pop @domain;
 my $sld = join ".",@domain;
 my $www = @domain > 2 && $domain[0] eq "www" ? shift @domain : "";
 my $host = join ".",(@domain,$tld);
 print ($_->scheme,$www,$host,$sld,$tld,$_->port);
}