Select Code to Download

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

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