sub anmelden {

	my ($self, $event) = @_;

	my $user = $self->{text_user}->GetValue;
	my $pwd = $self->{text_pwd}->GetValue;
	
	anmeldung($user, $pwd); # Funktion in Modul

}