Basic Prima window build/execute.

gistfile1.txt

use strict;
use warnings;

use Prima qw(Application Buttons Label);


my $window = Prima::Window->create();

$window->insert(Label =>
  text => 'test',
	pack => { side => 'top', fill => 'x', expand => 1 }
);

for my $option (qw(one two three)) {
	$window->insert(Radio =>
		text => $option,
		pack => { side => 'top', fill => 'x', expand => 1 },
	);
}

$window->execute;

print "All done!\n";