#!/usr/bin/perl -w
use strict ;

my $xaos="xaos -randompalette -autorotate on -rotationspeed 1 -palettef ";

my @opt=(
 '-mandel',
 '-mandel3',
 '-mandel4',
 '-mandel5',
 '-mandel6',
 '-newton',
 ' -newton4',
 '-barnsley',
 '-barnsley2',
 '-barnsley3',
 '-octal',
  '-phoenix',
  '-magnet',
  '-magnet2');
  

my $randopt=rand(1 + $#opt );
my $option=$opt[$randopt];
print "randopt = $randopt $option\n";
exec($xaos . $option);