use Kale_1990::Database;

my $dbh = connect Kale_1990::Database;
my $sth = $dbh->prepare('...');