my $user = $main->{current_user};
	my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
	my $sth = $dbh->prepare("SELECT * FROM pm_in WHERE pm_to = '$user->{name}' AND new = '1'");    
	$sth->execute();

	my @count = $dbh->selectrow_array(q{SELECT COUNT(1) FROM pm_in WHERE pm_to=? and new=1}, undef, $user->{name});

	my $output = $main->createInfoOutput('newmails',{mails => $count[0]});

	return [$output];

	$sth->finish();
	$dbh->disconnect();