Select Code to Download

use strict;
use Data::Dumper;
my $package_name = "Data";
print Dumper *{$::{$package_name."::"}}{HASH};

$VAR1 = {
          'Dumper::' => *{'Data::Dumper::'}
        };

use strict;
use Data::Dumper;
my $top_level = "Data";
my $second_level = "Dumper";
print Dumper *{${*{$::{$top_level."::"}}{HASH}}{$second_level."::"}}{H
+ASH}

$VAR1 = {
          'Seen' => *Data::Dumper::Seen,
...
          'Reset' => *Data::Dumper::Reset,
          'Dumpperl' => *Data::Dumper::Dumpperl
        };

use Data::Dumper;
my $top_level = "Data";
my $second_level = "Dumper";
my $subname = "Dumper";
print &{*{${*{${*{$::{$top_level."::"}}{HASH}}{$second_level."::"}}{HA
+SH}}{$subname}}{CODE}}(\%Data::);

$VAR1 = {
          'Dumper::' => *{'Data::Dumper::'}
        };

use strict;
use Data::Dumper;
...
my $second_level = "Dumper";
my $subname = "Dumper";
print &{${${$::{$top_level."::"}}{$second_level."::"}}{$subname}}(\%Da
+ta::);