Perl implementation with TCL/Tk