use strict;
use warnings;

use RRDs;
my $datafile = "temp.rrd";
my $lupdate  = 12345;
my $hash     = RRDs::info($datafile);
my $step     = $hash->{'step'};
my $mid      = $lupdate % $step;
print $mid;