#!/usr/bin/perl -w
use strict ;
use Win32;
use Win32::AdminMisc;

Win32::AdminMisc::SetEnvVar( "UUID", "TEST-TEST", ENV_SYSTEM ) ;
Win32::AdminMisc::SetEnvVar( "UUID", "TEST-TEST", ENV_USER ) ;