#!/usr/bin/perl -w
use strict;
use Audio::Play;
use Audio::Data;

my $player = Audio::Play->new();
while (1) {
    my $audio = Audio::Data->new( rate => 44100 );
    my @samples = map { sin ( 2 * 3.14 * $_ / 100 ) / 8 } 0 .. 99;  # generate 100 samples as perl numbers
    $audio->data(@samples); # will pack() samples into floats
    $player->play($audio);
}

##</code><code>##

while (1) {
  check_for_input();
  update_parameters_for_new_input(); #possibly using heavy math
  generate_100_samples_as_fast_as_possible();
  push_samples_into_soundcard_buffer();
}