Select Code to Download

sub new
{
     my $class = shift;
...
my $test = Foo->new(handle => $dbh);

my $handle = $test->{handle};

my @imports = qw [ foo bar ];

sub new
...

     return bless(\%self, $class);
}