Perl: Random Quotes

[demo]

Use the following tutorial to display random qutoes on whatever site you would like!

Code

#!/usr/bin/perl -wT

#Setup Module Use
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

#Quotes Are Placed Here. Seperate by comma
my @quotes = ("Don't die today!",
"Why don't you fly",
"What's up?");

#Prints the Actual Quotes
print header;
my $quote = $quotes[int(rand($#quotes+1))];
print qq(<b>$quote</b>\n);

Notes
- This file must be chmodded to 0755 or higher.
- This file must be located in the "CGI-BIN".

Example Here