my $i2c_dev = RPi::I2C->new($dev_addr);

##</code><code>##

my $pi = RPi::WiringPi->new;

my $i2c_dev = $pi->i2c($dev_addr);