use Resource;

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

##</code><code>##


my $in = resource(isa => 'ArrayReader');
my $out = resource(isa => 'ArrayWriter');

while ($_ = $in->next) { $out->write($_) }