use 5.12.4;
use warnings;
use Tk;

##### Create MainWindow #####
my $button_menu = new MainWindow;
#############################

##### MainWindow Buttons#####
my $calculator_button = $button_menu->Button(-text=>"Calculator",
	                                     -width=>10,
					     -relief=> 'raised',
				             -command=>\&open_calculator)->pack();

my $formulas_button = $button_menu->Button(-text=>"Formulas",
	                                   -width=>10,
					   -relief=> 'raised',
					   -command=>\&open_formulas)->pack();

my $lcf_button = $button_menu->Button(-text=>"Find LCF",
	                              -width=>10,
				      -relief=> 'raised',
				      -command=>\&open_lcf)->pack();

my $gcf_button = $button_menu->Button(-text=>"Find GCF",
	                              -width=>10,
				      -relief=> 'raised',
				      -command=>\&open_gcf)->pack();
#############################
sub open_calculator{
	system(qq{start "C:\\Windows\\system32\\calc.exe"});
}

MainLoop;