Select Code to Download

my $pkg = \%{ $pkg_name . '::' };
delete $pkg->{$_} for grep !/::\z/, keys %$pkg;

my $pkg = \%{ $pkg_name . '::' };
delete @{$pkg}{ grep !/::\z/, keys %$pkg };