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