Perl/Tk ”Å •ÛˆÀŠÇ—ƒ\ƒtƒg “o˜^ƒƒjƒ…[