#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::JComboBox;

my $mw = MainWindow->new;
my $lang1;
my $lang2;
	
	my $drop1 = $mw->JComboBox(
	-textvariable => \$lang1,
    -choices => [qw(en fr de it sp)],
    -entrybackground => 'white',
    -background=> 'white',
	-disabledbackground=>'grey',
	-autofind => { -enable  => 1 },
    )->pack();
	
	my $drop2 = $mw->JComboBox(
	-textvariable => \$lang2,
    -choices => [qw(en fr de it sp)],
    -entrybackground => 'white',
    -background=> 'white',
	-disabledbackground=>'grey',
	-autofind => { -enable  => 1 },
    )->pack();
	
 MainLoop;