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

my $dac = $pi->dac(
    model   => 'MCP4922',
    channel => 0,
    cs      => 18,       
);
 
my ($dacA, $dacB) = (0, 1);
 
$dac->set($dacA, 4095);
$dac->set($dacB, 0);