use warnings;
use strict;
use Math::BigFloat;
use Time::HiRes qw/gettimeofday/;
use EV;

my $w1 = EV::signal( 'INT', sub { EV::break } );

my ($cnt, $avg, $prev) = (0);
my $w2 = EV::periodic( 0, 1, 0, sub {
	my $cur = Math::BigFloat->new( sprintf("%d.%06d",gettimeofday) );
	if ( defined $prev ) {
		my $delta = $cur - $prev;
		$avg = defined $avg ? ( $avg + $delta ) / 2.0 : $delta->copy;
		$cnt++;
	}
	$prev = $cur->copy;
} );

EV::run;

print "\nAverage over $cnt deltas: $avg\n";