$key = 'HKEY_LOCAL_MACHINE\SYSTEM\Services\Tcpip\Parameters';
use Win32::TieRegistry;
$paramater = $Registry->{$key};
print $parameter;