#!/usr/local/bin/perl
#  ssimidsl.cgi  Written by Yo kubota July.22.1998. This script is public domain.

# constants definition

$mid_0 = "<EMBED src=\"./mid/mand0.mid\" autostart=true loop=true volume=50 width=51 height=15  controls=\"smallconsole\">";                  # mand0.mid
$mid_1 = "<EMBED src=\"./mid/mand1.mid\" autostart=true loop=true volume=50 width=51 height=15  controls=\"smallconsole\">";                  # mand0.mid
$mid_2 = "<EMBED src=\"./mid/mand2.mid\" autostart=true loop=true volume=50 width=51 height=15  controls=\"smallconsole\">";                  # mand0.mid
$mid_3 = "<EMBED src=\"./mid/mand3.mid\" autostart=true loop=true volume=50 width=51 height=15  controls=\"smallconsole\">";                  # mand0.mid

#-----  Set up above to customize this script  ------------;

# randamize
@x=(0,1,2,3);
srand;
$n=$x[rand(@x)];

# send enbbed_tag to browser
print "Content-type: text/html\n\n";

print $n==0 ? $mid_0:
      $n==1 ? $mid_1:
      $n==2 ? $mid_2:
      $n==3 ? $mid_3:"\n";