Help for this page
#!/usr/bin/env perl ... Gtk2->main;
$x->event_handler ('queue'); my %event = $x->next_event;