RosettaCodeData/Task/Hello-world-Graphical/Perl/hello-world-graphical-6.pl

use strict;
use warnings;
use XUL::Gui;

display Button
    label => 'Goodbye, World!',
    oncommand => sub {quit};