use Resource;

my $dbh = resource(isa => 'DBI');
...