use XUL::Gui;

display Window
(
    onload => \&WindowLoaded,
    id => "window",
    title => "Test Window",
    Button(label=>'Test', oncommand=>\&ButtonHandler)
);

sub WindowLoaded
{
    print "in WindowLoaded\n";
}

sub ButtonHandler
{
    print "in ButtonHandler\n";
}