Select Code to Download

my @atom = split /\./, $host;

if ( length($atom[-1]) == 3 ) {      # gTLD
...
    $domain = undef;

}