my $file;
        my $dialog = Gtk2::FileChooserDialog->new(
            'Select a File', undef,
            'open',
            'gtk-cancel' => 'cancel',
            'gtk-ok'     => 'ok',
        );

        if ( "ok" eq $dialog->run ) {
            $file = $dialog->get_filename;
            print "file = $file\n";
        }
        $dialog->destroy;