#!usr/bin/perl

use strict;
use warnings;

use Tk;



my $MW = MainWindow->new();
my $Button = $MW -> Button(-text=>"Open",-command=> \&open);
$Button -> pack();

MainLoop;

sub open{
	$MW->destroy();
	&hauptprogramm;
}

sub hauptprogramm{
	$MW = MainWindow->new();
	my $Label = $MW -> Label(-text=>"Hier kann das Hauptprogramm eingefügt werden!");
	$Label -> pack();
	$MW -> focusForce();  ####Damit das Hauptprogramm den Fokus kriegt
}