Select Code to Download

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

...
EOM
   exit;
}