#!/usr/local/bin/perl -w
use lib ('blib');
use Tk;

$mw = MainWindow->new();
$mw->geometry('-0-0');
MainLoop;
