#!/usr/local/bin/perl -w

use Tk;

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