use warnings;
use strict;

use RPi::ADC::ADS;

my $adc = RPi::ADC::ADS->new;

my $v = $adc->volts;
my $p = $adc->percent;
my $r = $adc->raw;

##</code><code>##

# A0, A1 and A3 input channels

for (0, 1, 3){ 
    print $adc->percent($_) ."\n";
}

##</code><code>##

my $diff_a0_a3 = $adc->percent(5);

# or

$adc->channel(5);
my $diff_a0_a3 = $adc->percent;