Perl + GUI - выбора тред

#!/usr/bin/perl
use warnings;
use strict;
use Prima qw(Application Calendar StdDlg MsgBox Buttons);

$::application->wantUnicodeInput(1);

my $mw = Prima::MainWindow::->new(
	text => "Calendar",
	size => [400,300],
);
$mw->insert(Calendar =>
	useLocale => 0,
	onChange => sub { print $_[0]-> date_as_string, "\n"; },
	pack => {expand => 1, fill => 'both'},
);
$mw->insert(Button =>
	text => "file",
	onClick => sub {
		my $open = Prima::OpenDialog-> new(
                	filter => [
	                        ['All files' => '*']
	                ],
			system => 1,
	        );
	        message $open->fileName if $open->execute;
	},
	pack => {expand => 1, fill => 'both'},
);
run Prima;

#!/usr/bin/perl
use warnings;
use strict;
use Prima qw(Application StdDlg Buttons InputLine);
my $mw = Prima::MainWindow::->new(
	text => "Buttons",
	size => [300,50],
);
my $line = $mw->insert(InputLine =>
	name => "myline",
	pack => { expand => 1, fill => 'x', side => 'left' },
);
$mw->insert(Button =>
	text => "by reference",
	onClick => sub {
		my $open = Prima::OpenDialog-> new(
                	filter => [
	                        ['All files' => '*']
	                ],
			system => 1,
	        );
		$line->text($open->fileName) if $open->execute;
	},
	pack => {expand => 1, fill => 'x', side => 'left'},
);
$mw->insert(Button =>
	text => "by name",
	onClick => sub {
		my $open = Prima::OpenDialog-> new(
                	filter => [
	                        ['All files' => '*']
	                ],
			system => 1,
	        );
		$mw->myline->text($open->fileName) if $open->execute;
	},
	pack => {expand => 1, fill => 'x', side => 'left'},
);
run Prima;