#!/usr/bin/perl
use strict;
use warnings;
use Win32::API;
use constant CLSID_ACTIVEDESKTOP   => '{75048700-EF1F-11D0-9888-006097DEACF9}';
my $coci = Win32::API->new('ole32','CoCreateInstance', [qw(I P I I P)], 'I')
  or die "Could not create CoCreateInstance object";
my $setwall;
my $res = $coci->Call(CLSID_ACTIVEDESKTOP, undef, 0, 0, \$setwall);
print "Got: $res\n";


##</code><code>##

Argument "{75048700-EF1F-11D0-9888-006097DEACF9}" isn't numeric in subroutine entry at noname.pl line 11.
Use of uninitialized value in subroutine entry at noname.pl line 11.