#! /usr/bin/perl

$| = 1;
print "Content-type: video/mpeg\n\n";

@sounds=<*.mpg>;

srand;

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

system "cat $sounds[$number]";