#!/user/bin/perl use strict; use warnings; no strict; my $pkg_href = 'Foo::'; my $new_href = 'Bar::'; foreach my $symbol ( keys %{ $pkg_href } ){ *glob = $pkg_href->{ $symbol } ; if( defined &glob ) { *{ $new_href . $symbol} = \&glob ; } }…