package ECClib;
my $dbh;
sub dbh { $dbh }
sub initialise {
...

##</code><code>##

use ECClib;
ECClib::initialise();
my $dbh = ECClib::dbh();