wallchanperl

#!/usr/bin/perl
#------------------------------------------------#
#-Cambia el fondo de gnome shell automaticamente-#
#------------------------------------------------#
use strict;

use warnings;

my $folder = "/ruta/de_tus/wallpapers/";

my $tiempo = 180;

my @fotos = `ls $folder | grep [jJ][pP][eE]*[gG]`;

my $wallpaper;

while( 1 )

{

$wallpaper = $fotos[rand($#fotos)];

`gsettings set org.gnome.desktop.background picture-uri "file:"$folder$wallpaper`;

sleep($tiempo);

}