package staff_db;

my $dbh = &get_dbh(); # Klassenweit?

sub new {
  my $class = shift;
  $class = ref($class) || $class;
  my $self = {};
  $self->{dbh} = &get_dbh(); # im Konstruktor?
  bless($self, $class);
  return $self;
}

1;