my $SendMessage = new Win32::API("user32", "SendMessageTimeout", ['N','N','N','P','N','N','N'], 'N')
         or die "Couldn't create SendMessage: $!\n";
  $SendMessage->Call(HWND_BROADCAST,WM_SETTINGCHANGE,0,'Environment',SMTO_NORMAL,10,0);