#!/usr/bin/perl

use Tk;
$top = new MainWindow;
MainLoop;