while (1) {

  # Get a random background from the array
  my $new = $backs[int(rand(@backs))];

  # Set the background to something new
  system($command . ' --type=string -s '. $gconf_item . ' \'' . $new . '\'');

  last if ($mode ne "running");
  sleep($interval*60);

} # end-while