package Kale_1990::Database;

use strict;
use warnings;
use DBI;
use base qw(Exporter);

our @EXPORT = qw($dbh);

my ($user,$pass,$db,$host) = ("username","password","datenbank","host");
our $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$pass) or die $DBI::errstr;

use Kale_1990::Database;

my $sth = $dbh->prepare('...');