use strict;
use warnings;

use Win32::OLE;
use Win32::OLE::Variant;

my $adtest = Win32::OLE->new('damnit.MyDesktop') or die();
$adtest->SetWallpaper('C:\WINNT\winnt256.bmp');