#!/usr/bin/perl -w

use Tk;

my $mw = MainWindow->new( -width => '100', -height => '100' );

MainLoop;