use Win32::TieRegistry;

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

...shutdown code...