use Audio::Aoede;
use PDL;
use PDL::Graphics::Prima::Simple;

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

my $p = $A->sine_wave->($A->rate,220);
$p = $p->append($A->square_wave->($A->rate,330));
$p = $p->append($A->sawtooth_wave->($A->rate,440));

$A->play($p);