Perl/Tk ”Å •ÛˆÀŠÇ—ƒ\ƒtƒg ‹Ÿ‹‹Ý”õ