perl Tk-CursorControl