Hola a todos

Acabo de hacer un funcion usando las API de Windows para poder
cambiar el fondo de escritorio con solo poner la ruta de la
imagen

 
#By Doddy H
 
use Win32::API;
 
sub cambiar_fondo {
 
my $a = new Win32::API("user32","SystemParametersInfo", [L,L,P,L],L);
$a->Call(20,0,$_[0],0);
 
}
 

Ejemplo de uso

 

cambiar_fondo("c:/Perl/img.bmp");