sub new
{
     my $class = shift;

     my $self = { @_ };

     return bless($self, $class);
}

# ...

my $test = Foo->new(handle => $dbh);

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

##</code><code>##

my @imports = qw [ foo bar ];

sub new
{
     my ($class, %params) = @_;

     my %self;
     @self{@imports} = @params{@imports};

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