An XDM chooser written in gtk2-perl