# Random Quote - by dark2k1(dark2k1.com)

#!/usr/local/perl/bin
print "Content-Type: text/html

";

@quotes = (
"Perl is not just a scripting language",
"PHP stands for PHP: HyperText Processor",
"ASP stands for Active Server Pages",
"ASP & PHP were invented in the mid 90s"
);

$x = 0;
while(@quotes[$x] ne "") {
$x++;
}

$random_number = int(rand($x)+0);
print @quotes[$random_number];