package MyDBI;

use DBI;

sub connect {
  ...get args
  my $dbh;
  ...do stuff
  $dbh = DBI->connect(...);
  ...do more stuff
  return $dbh;
}