use Audio::Aoede;

my $A = Audio::Aoede->new(out => 'chord.ogg');

my $p = $A->sine_wave->(2*$A->rate,220)
      + $A->sine_wave->(2*$A->rate,220 * exp(1))
      + $A->sine_wave->(2*$A->rate,220 * exp(2))
    ;

$A->play($p);