package TArtLib;
use strict;
use vars qw($dbh);
...
sub dbh {
  return $dbh;
}