use warnings;
use strict;

use RPi::WiringPi;

my $pi = RPi::WiringPi->new;

my $adc = $pi->adc;

my $cs = $pi->pin(18);
my $dpot = $pi->dpot($cs->num, 0);

$dpot->set(0);

print "\nValue, Output %\n\n";

for (0..255){

    if (($_ % 10) != 0 && $_ != 255){
        next;
    }

    $dpot->set($_);

    my $p = $adc->percent(0);
    
    print "$_/255: $p %\n";

    select(undef, undef, undef, 0.3);
}

print "\n\nOutput % at 127/255\n\n";

$dpot->set(127);

for (0..10){
    print $adc->percent(0) . " %\n";
    select(undef, undef, undef, 0.2);
}

$pi->cleanup;