use Audio::Aoede;

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

$A->play_roll('roll.mrt');