use Prima qw/Buttons Label Application/;

my $main = Prima::MainWindow->new(
    text => 'Hello world'
);

my $label = $main->insert( 'Prima::Label',
                           text      => 'Text Text Text',
                           pack => {},
                       );

my $window = Prima::Window->create(
    size => [ 100, 100 ]
);

my $button = $window->insert('Prima::Button',
                             text => 'Click me',
                             pack => {},
                             onClick => sub {
                                 $label->set(text => 'Toxt Toxt Toxt');
                             }
                            );

run Prima;