use Win32::TieRegistry;
  
$registry = Win32::TieRegistry->new("CUser");
$registry->SetValue("foo", "bar");

##</code><code>##

use Win32::TieRegistry;
  
$registry = Win32::TieRegistry->new("CUser/AppEvents", {Delimiter => "/"});
$registry->SetValue("foo", "something");

##</code><code>##

use Win32::TieRegistry;
  
$registry = Win32::TieRegistry->new("CUser", {Delimiter => "/"});
$registry->CreateKey("foo");