while ($mode eq 'running') {
    my $new = $backs[int(rand(@backs))];
    system($command . ' --type=string -s '. $gconf_item . ' \'' . $new . '\'');
    sleep($interval*60);
}