loop:

# 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 . '\'');

if ($mode eq "running") {
  sleep($interval*60);
  goto("loop");
} # end-if