use RRDs; ... my ($start,$step,$names,$data) = RRDs::fetch("$dir/$f", "AVERAGE", "--start", $begin, "--end", $end); die if RRDs::error; foreach (@$data) { print "@$_", "\n"; }