my $i2cGetDeviceAddressFunc = Win32::API->new('CrdI2C32', 'int i2cGetDeviceAddress()') or warn "\n ERROR: Can not import API:i2cGetDeviceAddress ,  $^E ,";

my $ret = 0;

$ret = $i2cGetDeviceAddressFunc->Call();

print "\n RET: $ret";