#!/usr/bin/perl -w
use strict;

use Tk;

my $MainWindow = MainWindow->new;
$MainWindow->geometry("420x420");
$MainWindow->configure(-background => "black");  

my $m = 0;
my $bfa = 0;
my $n=0;
my @ButtFunc;
my @montharr;
my @Jularr;