#!/usr/bin/perl print "Content-type:text/html\n\n"; @songs = ("http://members.tripod.com/~rdoege/Midis/1tinsoldier.mid.gz", "http://www.expert-html.com/midis/barddance.mid", "http://www.expert-html.com/midis/bass.mid"); @Transitions = ("spinoutin", "blackfade", "wiperight", "wipeleft", "wipeup", "wipedown", "wiperighttop", "wiperightbottom", "wipelefttop", "wipeleftbottom", "slideup", "slidedown", "slideleft", "slightright"); $rands = int(rand(@songs)); $randtr = int(rand(@transitions)); $play = "$songs[$rands]"; $trans = $transitions[$randtr]; print "