#!/usr/local/bin/perl

#

# UD 1.7: Myst

# Random Blue Page Script

#

# COPYRIGHT 1995 AGENCY.COM

# ALL RIGHTS RESERVED

# SINGLE USER LICENSE GRANTED TO THIS WEB SITE ONLY. #

# Revision History

# yyyy/mm/dd

# 1995/11/29 created (jmasur) #

#-------------------------------------------------------------- 



# Includes

#-------------------------------------------------------------- 



require "../../../../../cgi-bin/cgi-lib.pl";



# Global Varibles	SETUP bluepage HERE!!

#-------------------------------------------------------------- 



srand(time) ;



@html	=	(

	'respect.html',

	'limitation.html',

	'wish.html',

	'me.html',

	'logic.html',

);



$choose = int(rand(5));        # $choose is an integer

                                   # between 1 and 5



# Main Program

#-------------------------------------------------------------- 





print &PrintHeader, &PrintFile($html[$choose]);



exit;



# Functions

#--------------------------------------------------------------