use BaseClass;
BaseClass->connect(args...);

##</code><code>##

package BaseClass;

sub connect {
  ...
  $dbh = DBI->connect($ENV{PERRIN_DBI}, $ENV{PERRIN_USR}, $ENV{PERRIN_PWD});
  ...
}