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