use Tk;
use strict;
Main( @ARGV );
exit( 0 );

sub Main {

    my $mw = MainWindow->new;
    $mw->geometry( "100x100" );
    $mw->title( "MAIN WINDOW" );
	my $button_frame12 = $mw->Frame()->pack( -side => "top", -pady => 10 );
    $button_frame12->Button( -text => "HELP", -command => \&window12)->pack(-side => 'bottom');
	
	MainLoop;

}