#!/usr/local/bin/perl #################################### ## Scripted by SBScript@webtv.net ## ## Name it anything .pl or .cgi ## #################################### ##################################################### @hitz = ("Goodbye.ram", "Contagious.ram", "url of song"); ##################################################### $rand = int(rand(@hitz)); $play = $hitz[$rand]; ##################################################### print "Content-type: text/html\n\n"; print("\n"); print("\n"); print("\n"); print("\n"); print("\n");