use strict;
use warnings;
use Gtk2 "-init";
use Glib qw/filename_from_unicode filename_to_unicode/;
my $w=Gtk2::Window->new;
my $vbox=Gtk2::VBox->new;
$w->add($vbox);
opendir my($dh),$ARGV[0];
for my $file (readdir $dh)
{   $file=Glib::filename_to_unicode($file);
    my $label=Gtk2::Label->new($file);
    $vbox->pack_start($label,0,0,0);
}
$w->show_all;
Gtk2->main;