use strict;
use warnings;

use Win32::API;

my $api = Win32::API->new('user32', 'SystemParametersInfo', ['I', 'I', 'P', 'I'], 'I') || die 'failed\n';
print $api->Call(20, 0, "yahoo.gif", 3);