#!/usr/bin/perl

use strict;
use lib qw(.);
use my_tk qw(MainLoop);

my $fenster = my_tk->new();

MainLoop();

package my_tk;

require Exporter;
our @EXPORT = qw(MainLoop);

use base 'Tk';
sub new {
  my $class = shift;
  my $self = MainWindow->new(@_);
   # ggf. mach was mit $self
  return $self;
}

sub MainLoop{
  Tk::MainLoop();
}

1;