#!/perl/bin/perl
#
# Mset.pl -- Set master environment variable 'test' to arbitrary value as demo...
use strict;
use warnings;
use diagnostics;
use Win32::Registry;
use Win32::API;
use constant HWND_BROADCAST => -1;
use constant WM_SETTINGCHANGE => 0x1a;

my $env;
my $value;
my $reserved;

$::HKEY_LOCAL_MACHINE->Open("SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment", $env)
    or die "Can't open env: $^E";
$env->SetValueEx("test",$reserved,'1',"C:\\Perl\\Perl_Dev\\mset") 
    or die "No Environment variable test: $!\n";
$env->Close();
my $SendMessage = new Win32::API("user32", "SendMessage", 'NNNP', 'N')
    or die "Couldn't create SendMessage: $!\n";
my $RetVal = $SendMessage->Call(HWND_BROADCAST,WM_SETTINGCHANGE,0,'Environment');