@angaben = anmeldeFenster();
foreach(@angaben){print $_};

sub anmeldeFenster {
    my $mw = new MainWindow;
    my $image = $mw->Photo(-file=>"d:/logo.gif");
    $mw->iconimage($image);
    my $frame = $mw -> Frame() -> pack();
    my $user_lab = $frame -> Label(-text=>"Benutzer: ")-> pack();
    my $ben_feld = $frame -> Entry() ->pack(); 
    my $pass_lab = $frame -> Label(-text=>"Passwort: ") -> pack();
    my $pass_feld = $frame -> Entry(-show=>'*') -> pack();
    $pass_feld->bind('<Return>',  \&ok_button);
    my $ok_but = $frame -> Button(-text=>"Ok", -command =>\&ok_button) -> pack();
    MainLoop;

    sub ok_button{
        $benutzer = $ben_feld -> get();
        $passwort = $pass_feld -> get();
        @angaben = ($benutzer, $passwort);
        
        $mw -> destroy();
        
        return @angaben;
    }
    
}