Help for this page
my $i2c_dev = RPi::I2C->new($dev_addr);
my $pi = RPi::WiringPi->new; my $i2c_dev = $pi->i2c($dev_addr);