#!/usr/bin/perl -w

use strict;

my @array = ('words', 'will', 'go', 'here');
my @array2 = ('words2', 'will2', 'go2', 'here2');
   print "Content-Type: text/html\n\n";
print "$array[rand @array] - $array2[rand @array2]\n";

##</code><code>##

#!/usr/bin/perl -w

use strict;

my @array = ('words', 'will', 'go', 'here');
$array[rand @array]

my @array2 = ('words2', 'will2', 'go2', 'here2');
$array2[rand @array2]

   print "Content-Type: text/html\n\n";
print <<EOM;
<title>Title goes here</title>
<H1>HTML can now go here</H1>
<P>
Then the random words go anywhere as $array and $array2...
<P>
$array
<P>
$array2
<P>
Footer text can go here!!!
EOM
   exit;
}