#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

$mw->minsize(300,400);
$mw->maxsize(300,400);

MainLoop;