#!perl -w
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $menubar = $mw->Menu( -borderwidth=> 2, -relief=> "groove", -font=> "{Sans} 14 bold", -background=> 'white' );
$mw->configure( -menu=> $menubar );

my $fileMenu = $menubar->cascade( -label=> "~File", -tearoff => 0 );
$fileMenu->command( -label=> 'E~xit', -command=> \&exit );

MainLoop();