#!/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");
$new->command(-label => "Text file", -accelerator => "Ctrl-t", );

$file->separator();

$file->command(-label=>"Open",  -command=>\&open);
$file->checkbutton( -label=>'chk1'); 
$file->radiobutton ( -label=>'rad1'); 

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

MainLoop;