#!/usr/bin/perl

use strict;

use my_tk;

my $fenster = my_tk->new();

MainLoop();



package my_tk;

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

    }
1;