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