sub PW_Identifizierung {

my $PW_Identifizierung_Fenster = MainWindow -> new( -title => "PW - Abfrage" );
	
my $Breite = 280;
my $Hoehe  = 140;
	
$PW_Identifizierung_Fenster -> geometry( $Breite . 'x' . $Hoehe );

my $PW_Identifizierung_Eintrag = $PW_Identifizierung_Fenster -> Entry( -width   => 32       ,
                                                                       -relief  => 'sunken' , 
                                                                       -bd      => 2        , 
                                                                       -justify => 'center' ,
                                                                       -show    => '*'      ,
																
                                                                     ) -> place( -x => 41 , -y => 65 );									
      
my $PW_Identifizierung_Ergebnis = "";

my $PW_Identifizierung_Rueckgabe = $PW_Identifizierung_Fenster -> Button( -text    => 'OK'   , 
	                                                                  -width   => 14    ,
								          -command => sub{  $PW_Identifizierung_Ergebnis =  $PW_Identifizierung_Eintrag -> get( );
                                                                                            print "Ergebnis : $PW_Identifizierung_Ergebnis" , "\n";
		                                                                            return( $PW_Identifizierung_Ergebnis );
										         } 
	
				                                         ) -> place( -x => 40 , -y => 95 );

MainLoop( ) 

}