use RRDs;

## FORMAT IN::OUT VALUES
$rrdFile{'foo.rrd'} = "323::460";
$rrdFile{'bar.rrd'} = "322::110";

$RrdEpochTime = time();

foreach (keys (%rrdFile)) {
  ($in, $out) = split (/::/, $rrdFile{$_});
  RRDs::update("$_","$RrdEpochTime:$in:$out");
}