<%perl>
#!/usr/bin/perl
use POSIX;

#Generate a random Bible verse from the array
my @quotes;
my @authors;

$quotes[0] = "And we know that all things work together for good to them that love God, to them who are called according to his purpose";
$authors[0] = "Rom.8:28";
$quotes[1] = "Do all things without murmurings and disputings";
$authors[1] = "Phil.2:14";
$quotes[2] = "But godliness with contentment is great gain";
$authors[2] = "1 Tim.6:6";
$quotes[3] = "Though wilt show me the path of life. In thy presence is fullness of joy. At thy right hand there are pleasures forevermore";
$authors[3] = "Ps.16:11";
$quotes[4] = "For God so loved the world that He gave His only begotten son, that whosoever believeth in Him should not perish but have everlasting life";
$authors[4] = "Jn.3:16";
$quotes[5] = "Whatsoever things are true, whatsoever things are honest, whatsoever things are just whatsoever things are pure, whatsoever things are lovely, whatsoever things are of good report; if there be any virtue and if there be any praise, think on these things";
$authors[5] = "Phil.4:8";
$quotes[6] = "Be still and know that I am God";
$authors[6] = "Ps.46:10";
$quotes[7] = "Study to shew thyself approved unto God, a workman that needeth not to be ashamed, rightly dividing the word of truth";
$authors[7] = "2 Tim.2:15";
$quotes[8] = "Let us therefore come boldly unto the throne of grace, that we may obtain mercy, and find grace to help in time of need";
$authors[8] = "Heb.4:16";
$quotes[9] = "When thou passest through the waters, I will be with thee; and through the rivers, they shall not overflow thee; when thou walkest through the fire, thou shalt not be burned; neither shall the flame kindle upon thee";
$authors[9] = "Isa.43:2";
$quotes[10] = "I am crucified with Christ: nevertheless I live; yet not I, but Christ liveth in me: and the life which I now live in the flesh I live by the faith of the Son of God, who loved me and gave Himself for me";
$authors[10] = "Gal.2:20";
$quotes[11] = "Let nothing be done through strife or vain glory but in lowliness of mind let each esteem other better than themselves";
$authors[11] = "Phil.2:3";
$quotes[12] = "But my God shall supply all your needs according to his riches in glory by Christ Jesus";
$authors[12] = "Phil.4:19";
$quotes[13] = "Wait on the Lord: be of good courage, and He shall strengthen thine heart: wait, I say, on the Lord";
$authors[13] = "Ps.27:14";
$quotes[14] = "Know ye that the Lord He is God: it is He that hath made us, and not we ourselves; we are his people, and the sheep of His pasture";
$authors[14] = "Ps.100:3";
$quotes[15] = "Fear thou not; for I am with thee: be not dismayed; for I am thy God: I will strengthen thee; yea, I will help thee; yea, I will uphold thee with the right hand of my righteousness";
$authors[15] = "Isa.41:10";
$quotes[16] = "Yet I say unto you, that even Solomon in all his glory was not arrayed like one of these";
$authors[16] = "Mt.6:29";
$quotes[17] = "The LORD is good, a strong hold in the day of trouble; and he knoweth them that trust in Him";
$authors[17] = "Nah.1:7";
$quotes[18] = "Order my steps in thy word: and let not any iniquity have dominion over me";
$authors[18] = "Ps.119:133";
$quotes[19] = "As the Father hath loved me, so have I loved you: continue ye in my love";
$authors[19] = "Jn.15:9";
$quotes[20] = "For the wages of sin is death; but the gift of God is eternal life through Jesus Christ our Lord";
$authors[20] = "Rom.6:23";
$quotes[21] = "There hath no temptation take you but such as is common to man: but God is faithful, who will not suffer you to be tempted that ye are able; but will with the temptation also make a way to escape, that ye may be able to bear it";
$authors[21] = "1 Cor.10:13";
$quotes[22] = "Whether therefore ye eat, or drink, or whatsoever ye do, do all to the glory of God";
$authors[22] = "1 Cor.10:31";
$quotes[23] = "Wherefore lay apart all filthiness and superfluity of naughtiness, and recieve with meekness the engrafted word, which is able to save your souls";
$authors[23] = "James 1:21";
$quotes[24] = "But be ye doers of the word, and not hearers only, deceiving your own selves";
$authors[24] = "Jas.1:22";
$quotes[25] = "For as the body without the spirit is dead, so faith without works is dead also";
$authors[25] = "Jas.2:26";
$quotes[26] = "And Enoch walked with God after he begat Methuselah three hundred years, and begat sons and daughters:";
$authors[26] = "Gen.5:22";
$quotes[27] = "Who can understand his errors? cleanse thou me from secret faults";
$authors[27] = "Ps.19:12";
$quotes[28] = "Yea, though I walk through the valley of the shadow of death, I will fear no evil: for thou art with me; thy rod and thy staff they comfort me";
$authors[28] = "Ps.23:4";
$quotes[29] = "Lord, make me to know mine end and the measure of my days, what it is; that I may know how frail I am";
$authors[29] = "Ps.39:4";
$quotes[30] = "Search me, O God, and know my heart: try me, and know my thoughts: And see if there be any wicked way in me, and lead me in the way everlasting";
$authors[30] = "Ps.139:23-24";
$quotes[31] = "Seek ye the Lord while he may be found, call ye upon him while he is near:";
$authors[31] = "Isa.55:6";

# Get today's date to use as quote index 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;

# Display the quotation
my $quote = '"' . $quotes[$mday] . '"';
my $author =  "(" . $authors[$mday] . " KJV).";
</%perl>

<div>
<p><b>Today's Bible Verse</b><br />
<% $quote %> <% $author %></p>
</div>