RosettaCodeData/Task/Simple-windowed-application/Perl/simple-windowed-application-3.pl

use XUL::Gui;

display
    TextBox( id=>'txt', value=>'there have been no clicks yet' ),
    Button( label=>'click me', oncommand=>sub{
        $ID{txt}->value = ++$clicks
    });