Select Code to Download

class Relay():    
    global bus
...
        print 'ON_1...'
        self.DEVICE_REG_DATA &= ~(0x1<<0)  
        bus.write_byte_data(self.DEVICE_ADDRESS, self.DEVICE_REG_MODE1
+, self.DEVICE_REG_DATA)

#!/usr/bin/perl
use strict;
...
);
$dev->writeByteData(0x06,0x1<<0);
print Dumper $dev