#!/usr/bin/perl 
use warnings; 
use strict; 
use Tk; 
use utf8;
use encoding 'cp1256';
use Encode qw(encode decode);

my $mw = tkinit; 

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

my $text1 =  encode( 'utf8','ملف'); #arabic word for file
my $text2 =  encode( 'utf8','فتح'); # arabic word for open
my $text3 =  encode( 'utf8','تسجيل'); # arabic word for save

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

MainLoop; 
__END__