Select Code to Download

use Bytes::Random::Secure;

...
  for 1 .. 100;

print "\n";

$ ./mytest.pl
pairs    oranges    oranges    oranges    pairs    apples    oranges  
+  apples
...
peaches    pairs    oranges    oranges    oranges    pairs    oranges 
+   oranges
peaches    peaches    peaches    oranges    oranges    peaches    oran
+ges    oranges
... and so on ...