package ECClib;

my $dbh;

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

##</code><code>##

use ECClib;

my $dbh = ECClib::initialise();

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