#! /usr/bin/perl

$| = 1;
print "Content-type: audio/basic\n\n";

@sounds=<*.au>;

srand;

do {
    $number = int(rand($#sounds+1));
} until ($number <= $#sounds);

system "cat $sounds[$number]";