my $Reg;
use Win32::TieRegistry( TiedRef => $Reg, Delimiter => '/' );
$Reg->{ "LMachine/Software/Microsoft/Windows/"
  . "CurrentVersion/Uninstall/$name/"} = {
    DisplayName => $name,
    UninstallString => $uninstallPath,
} or die "Can't load registry: $^E";