package Bench;
use Modern::Perl;
use Time::HiRes qw ( gettimeofday tv_interval );

my ($start,$end,$elapsed,$fps);

sub MileStone { End(); Report(); Start(); }

sub Start { $start = [ gettimeofday ]; }

sub End { $end = [ gettimeofday ]; }

sub Report
   {
    $end = [ gettimeofday ];
    $elapsed = tv_interval($start,$end);
    $fps = int(1 / $elapsed);

    say "$elapsed = $fps p/s";
   }

1;