Select Code to Download

srand;
$index = rand(0..10);
...
srand;
@rquotes = rand(@quotes);
print "$rquotes[3]";

#!/usr/bin/perl -w
use strict;
...
 
print "Content-Type: text/html\n\n";
print "$quote";