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

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

my $p = $A->noise('pink')->($A->rate);

$A->play($p);
line_plot($p->slice([0,999]));
line_plot($A->spectrum($p,4000));