Select Code to Download

use Fcntl qw/:flock/;
...
...
flock($i2c->fh, LOCK_EX) or die "flock: $!";
$i2c->bus_write(...);
flock($i2c->fh, LOCK_UN) or die "flock: $!";