#!/usr/bin/perl 
$channel=1;
$address1=0x20;
$address2=0x21;
$address3=0x22;
$address4=0x23;