my $file_dialog = Gtk::FileSelection->new("File Selection Demo");
{ 
    my $b = $file_dialog->ok_button; 
       $b->label("Load");
       $b->relief("half");
       $b->width(80);
       $b->height(50);
       $b->signal_connect(clicked => sub { 
           print $file_dialog->get_filename(), "\n";
       });
}
{
    my $b = $file_dialog->cancel_button;
       $b->label("Exit");
       $b->relief("half");
       $b->width(80);
       $b->height(50);
       $b->signal_connect(clicked => sub {
           Gtk->main_quit
       });
}

$file_dialog->set_filename("penguin.png");
$file_dialog->signal_connect(destroy => sub {
    Gtk->main_quit
});
$file_dialog->show();