package ECClib;

my $dbh;

sub initialise(){
.
.
$dbh = db_connect($dbuser, $dbpasswd, $dbserver);
.
.
)

##</code><code>##

use ECClib;

ECClib::initialise();

my $sql="select InputID from ECCInput order by InputID";
my $sth = $ECClib::dbh->prepare($sql);