[Perl] Funcion cambiar fondo

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

1 2 3 4 5 6 7 8 9 10

#By pr0xXx0r 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

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