sub new
{
     my $class = shift;

     my $self = { @_ };

     return bless($self, $class);
}

# ...

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

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