use strict;
use warnings;

use Win32::API;
my $SystemParametersInfo = new Win32::API(qw(user32 SystemParametersInfoA NNPN N)) || die $^E;
$SystemParametersInfo->Call( 20, 0, "c:\\perl582\\bin\\yahoo.bmp",1 ) || die $^E;