#!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
}