use warnings;
use strict;
use IPC::System::Simple qw/systemx capturex/;
use Regexp::Common qw/number/;

while (1) {
	my $in  = capturex(qw/ snmpget -Oqv -v2c -c randomstr localhost 1.3.6.1.2.1.31.1.1.1.7.3  /);
	my $out = capturex(qw/ snmpget -Oqv -v2c -c randomstr localhost 1.3.6.1.2.1.31.1.1.1.11.3 /);
	for ($in,$out) {
		chomp;
		die "Bad number '$_'" unless /^$RE{num}{real}$/;
	}
	systemx('rrdtool','update','opit11.rrd',"N:$in:$out");
	sleep 10;
}