#!/usr/bin/env perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
$mw->geometry("400x300");
$mw -> configure (-menu => my $mb = $mw->Menu);

my $file = $mb -> cascade(-label => "~File");
my $edit = $mb -> cascade(-label => "~Edit");
my $new = $file -> cascade (-label => "New", -accelerator => "Ctrl-n", );

$file ->separator();

$file ->command(-label=>"Open",  -command=>\&open);

$file ->checkbutton( -label=>'chk1'); 
$file ->radiobutton ( -label=>'rad1'); 

sub open{
  print "Opening something...\n";
}

MainLoop;