#!/usr/bin/perl
use strict;
use Device::SMBus;
use Data::Dumper;
my $dev = Device::SMBus->new(
  I2CBusDevicePath => '/dev/i2c-1',
  I2CDeviceAddress => 0x20,
);
$dev->writeByteData(0x06,0x1<<0);
print Dumper $dev