gtk3 file choose

gtk3-filechoose.pl

use strict; use warnings;
use Gtk3 -init;

my $dialog = Gtk3::FileChooserDialog->new(
    'Select files..', Gtk3::Window->new('toplevel'),
    qw'open OK ok');

$dialog->set_select_multiple(Gtk3::true);

$dialog->signal_connect( response => sub {
    printf "%s\n", join "\n", @{$dialog->get_filenames};
    exit });

$dialog->show_all;

Gtk3::main;