use Audio::Aoede;
use PDL;

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

my $p = sin(440 * $t); # This is where the fun happens

$A->play($p);