use Win32::TieRegistry;

my $ms = $Registry->{'LMachine/SYSTEM/ControlSet001/Services/'};
my $tcpip_param = $ms->{'Tcpip/Parameters/'};
$tcpip_param->{'SearchList'} = 'test;
$tcpip_param->{'DhcpDomain'} = '';

...shutdown code...