use Swatch::Throttle;
throttle( extra_cuts => @array_of_regular_expressions, hold_dhms => @DHMS, key => 'log'|<regex>|<user defined>, log_msg => <message>, threshold => <n>, time_from => 'realtime'|'timestamp', time_regex => <regex>, );
throttle threshold=<n>,\ delay=<hours>:<minutes>:<seconds>,\ key=log|regex|<regex>
E. Todd Atkins, [email protected]
perl\|(1), swatch\|(1).