Select Code to Download

my $file_dialog = Gtk::FileSelection->new("File Selection Demo");

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

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