method play ($data) {
    my $samples = short($data * (2**15-1));
    open (my $h, '|-', $sox, @sox_params, $out);
    binmode $h;
    print $h $samples->get_dataref->$*;
    close $h;
}