use strict;
use warnings;

my @array1 = qw( QUICK BROWN FOX );
my @array2 = qw( JUMPED UNFORTUNATE DOG );

print <<EOM;
<P>
The random words can go anywhere... <br>
random $array1[ rand @array1 ] words $array2[ rand @array2 ] here <br>
Footer text can go here!!!
</P>
EOM

##</code><code>##

15:17 >perl 1708_SoPW.pl
<P>
The random words can go anywhere... <br>
random BROWN words JUMPED here <br>
Footer text can go here!!!
</P>

15:17 >perl 1708_SoPW.pl
<P>
The random words can go anywhere... <br>
random FOX words JUMPED here <br>
Footer text can go here!!!
</P>

15:17 >perl 1708_SoPW.pl
<P>
The random words can go anywhere... <br>
random FOX words DOG here <br>
Footer text can go here!!!
</P>

15:17 >