#...
anmeldeFenster();
sub anmeldeFenster {
#...
sub ok {
   	my $mw = shift;
    	my $fenster = shift;
	my $user = $fenster->Subwidget('user_frame')->Subwidget('user')->get();
	my $pass = $fenster->Subwidget('password_frame')->Subwidget('password')->get();
    	$mw -> destroy();
    	return ($user, $pass);
	}
}
#...
infoFenster($text);