Help for this page
use BaseClass; BaseClass->connect(args...);
package BaseClass; ... $dbh = DBI->connect($ENV{PERRIN_DBI}, $ENV{PERRIN_USR}, $ENV{PERRIN_ +PWD}); ... }