sub dbrow {
	
	my $self = shift;
	my $anfrage = shift;
	 # Datenbankverbindung aufbauen
  	my $db = DBI->connect('dbi:mysql:database='.$self->{DBASE}.':'.
  										$self->{HOST}, $self->{USER}, $self->{PASS},{}) or die $DBI::errstr;
	my @result = $db->selectrow_array($anfrage);
	$db->disconnect();
  	return @result;
}