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

my $A = Audio::Aoede->new();
my $t = sequence($A->rate) / $A->rate * 2 * atan2(0,-1);

my $p = sin(440 * $t);

line_plot($A->spectrum($p,1000));