# -----------------------------------------------------------------------------	

sub Haupt_Fenster {

	my $Haupt_Fenster = MainWindow -> new;
	
	my $Breite = 3;
	my $Hoehe  = 3;
	
	$Haupt_Fenster -> geometry( $Breite . 'x' . $Hoehe );
	$Haupt_Fenster -> update;

	my $Top_Level = $Haupt_Fenster -> toplevel;

	&Authentifizierung( $Haupt_Fenster );

	MainLoop;
}	

# -----------------------------------------------------------------------------	

sub Authentifizierung {

	my ( $Haupt_Fenster ) = @_;

	my $Fenster_Lizenzierung =  $Haupt_Fenster -> Toplevel( -title => 'Authentifizierung' );
		
	my $Breite = 400;
	my $Hoehe  = 180;
		
	$Fenster_Lizenzierung -> geometry( $Breite . 'x' . $Hoehe );
	$Fenster_Lizenzierung -> update;

... Weiterer Code