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

use Tk;

#only a small relevant portion is shown here
my $mw = MainWindow->new;
my $width = '50';
my $height = '180';
$mw->geometry( $width."x".$height);
#$mw->resizable(1,1);
$mw->title("Calculator");

my $menu_f = $mw->Frame()->pack(-side=>'top',-fill=>'x');
my $menu_file = $menu_f->Menubutton
                    (-text=>'File',-tearoff=>'false')
                    ->pack(-side=>'left');
my $menu_tools = $menu_f->Menubutton
                    (-text=>'Tools',-tearoff=>'false')
                    ->pack(-side=>'left');  
my $menu_windows = $menu_f->Menubutton
                    (-text=>'Windows',-tearoff=>'false')
                    ->pack(-side=>'left');  

MainLoop();