A quiz with 4 multiple choices written by Perl/Tk