#!/usr/bin/perl 
use warnings; 
use strict; 
use Tk; 
my $mw = tkinit; 

my $menubar = $mw->Menu(-type => 'menubar'); 
$mw->configure(-menu => $menubar); 

my $text1 = 'File';
my $text2 = 'Open file'; 
my $text3 = 'Save as'; 

my $menu = $menubar->cascade(-label => $text1);
$menu->command(-label => $text2); 
$menu->command(-label => $text3); 

MainLoop; 
__END__