#!perl
use strict;
use warnings;

use Data::Dumper;
use Win32::TieRegistry;

my $key = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters';
my $parameter = $Registry->{$key};

print Dumper($parameter);