my $Reg;
use Win32::TieRegistry( Delimiter=>"/", TiedRef=>\$Reg );