Select Code to Download

sub insert_domain {
    my $cursor = shift;
    $cursor = $cursor->{$_} ||= {} for @_;
...
}

insert_domain(\%domain, qw(org perlmonks www));

insert_domain \%domain, qw(com perlmonks www);
insert_domain \%domain, qw(org perlmonks www);
insert_domain \%domain, qw(org perl www);
...
                                    }
                   }
        };