use Audio::Aoede;

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

$A->play_notes('A4'           => 1/4,
               'C#5'          => 1/4,
               'E5'           => 1/4,
               'A4+C#5+E5+A5' => 1);