# Rate limiting
if (exists($last_sent{$saddr}{$dport})) {
my $elapsed = Time::HiRes::tv_interval($last_sent{$saddr}{$dport}, $now);
if ($elapsed < 1.0) {
print LOG "$dport $size 2\n";
print inet_ntoa($saddr), ", $dport, $size bytes => rate-limited ($elapsed secs since last)\n";
# Rate limiting
if (exists($last_sent{$saddr}{$dport})) {
my $elapsed = Time::HiRes::tv_interval($last_sent{$saddr}{$dport}, $now);
if ($elapsed < 1.0) {
print LOG "$dport $size 2\n";
print inet_ntoa($saddr), ", $dport, $size bytes => rate-limited ($elapsed secs since last)\n";