#!/usr/bin/perl -w

use strict;
use Gtk2 -init;

my $file_chooser = Gtk2::FileChooserDialog->new(
 'Open file',
 undef, 'open',
 'gtk-cancel' => 'cancel',
 'gtk-ok'     => 'ok'
);
$file_chooser->signal_connect(
 response => sub {
 my ( $dialog, $response ) = @_;
 print "signal returned $response\n";
 }
);
print "run returned ",$file_chooser->run, "\n";
$file_chooser->destroy;
exit( 0 );