#!perl -w
use strict;
use Win32::TieRegistry;
my $key = new Win32::TieRegistry "CUser/Console/",
      { Delimiter => "/" };
$key->{"//QuickEdit"} = [ "0x0000", "REG_DWORD" ];