#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::JComboBox;
use File::Glob ();

my $wMain = MainWindow->new;
my $cboFile = $wMain->JComboBox(
    
)->pack(-padx => 30, -pady => 30);

foreach $_ (glob('*')) {
  $cboFile->addItem($_);
}

MainLoop;