#!/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);
}