#! /usr/bin/perl

use utf8;
use strict;
use warnings;

use Gtk2 '-init';

my $window = Gtk2::Window->new('toplevel');

my $saveDir_button = Gtk2::FileChooserButton->new("Choose folder",'select-folder');
$saveDir_button->signal_connect('current-folder-changed' => sub{
	print $saveDir_button->get_current_folder, "\n";
});

$window->add($saveDir_button);

$window->show_all;

Gtk2->main;

0;