use Win32::TieRegistry(Delimiter=>'/');
my $ms= $Registry->{'LMachine/SYSTEM/ControlSet001/Services/'};
$ms->{'Tcpip/'} = {   'Parameters/'=>  {'/SearchList' => ['test','REG_SZ']}};

my $ms= $Registry->{'LMachine/SYSTEM/ControlSet001/Services/'};
$ms->{'Tcpip/'} = {   'Parameters/'=>  {'/DhcpDomain' => ['','REG_SZ']}};


Win32::InitiateSystemShutdown( '', "\nAction Complete.\n\nSystem will now Reboot\!", 20, 0, 1 );