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