Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $audio->data(@samples); # will pack() samples into floats
    $player->play($audio);
}

while (1) {
  check_for_input();
...
  generate_100_samples_as_fast_as_possible();
  push_samples_into_soundcard_buffer();
}