my $pdb = openDatabase();
# ...
doSomething(DB => $pdb, FOO => 'bar');

##</code><code>##

my ($rdb) = $param{DB} || openDatabase();

##</code><code>##

$rdb->disconnect() unless $param{DB};