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