package mytk;

use strict;
use warnings;

use base 'Tk::MainWindow';

sub new {
    my $class = shift;

    my $self = $class->SUPER::new(@_);

    return ($self);
}

sub run {
    my $self = shift;
    $self->SUPER::MainLoop;
}

1;


my $wnd = mytk->new;
$wnd->run;