use strict;
use warnings;
use diagnostics;
use Tk;
use Tk::JComboBox;

my $wMain = MainWindow->new;
my $cboFile = $wMain->JComboBox() ->place(-x => 0, -y => 0); 

foreach (<*>) {
  $cboFile->addItem($_);
}
#$cboFile->showPopup;
 
MainLoop;