#!/usr/local/bin/perl

srand;
open(IN, './files.txt');
@files = <IN>;
close IN;

$n = $#files;
$i = rand($n);
$file = $files[$i];
chop $file;
$path = '/Holiday/midi/' . $file;

print "Content-type: text/html\n\n";

print <<EOT;

<EMBED SRC="$path" hidden="true" width="143" height="60" autostart="true" align="right"></EMBED>
Visit WestNet's own <A HREF="midi/">MIDI Christmas Archive</A>, featuring
files from USENET. Those who still have MIDI enabled are currently listening to
<A HREF="$path">$file</A>, a random selection from the archive.

EOT

exit 0;
