Select Code to Download

#!/usr/bin/perl
...
...
  }
   return( $dataStr );
}

# setup alternate i2c bus - SDA on gpio 22/SCL on gpio 23
#  and INA219 addresses
    my $i2cDev   = '/dev/i2c-3';
...

    return $shuntA ;
}