#!/usr/bin/perl

use FindBin qw($Bin); chdir($Bin);
use File::Basename;

#use Win32::API;
use constant NULL => 0;
#use Image::Magick;

#use File::Find;

use Tk;
my $mw2 = MainWindow->new( -height => 10, -width => 10);
$mw2->title( 'hulli');

MainLoop;