Perl/Tk ”Å ŒŸjE”z‘—ŠÇ—ƒ\ƒtƒg‹N“®‰æ–Ê‚P