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

my $dev="LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards/";
my $key= $Registry->Open($dev, { Access => "KEY_READ", Delimiter => "/" } );

print Dumper($key);

$VAR1 = bless( {
  '2/' => bless( {
    '/ServiceName' => '{8BAA28BF-8565-43BE-81C0-E7BBD94187D3}',
    '/Description' => 'Intel(R) PRO/1000 PL Network Connection'
  }, 'Win32::TieRegistry' ),

  '21/' => bless( {
    '/ServiceName' => '{15B70374-1CD7-416E-A08A-22F96A502A54}',
    '/Description' => 'Linksys Etherfast USB 10/100 Ethernet Adapter'
  }, 'Win32::TieRegistry' ),

  '3/' => bless( {
    '/ServiceName' => '{7F8B1DE7-B0AA-40C0-8D89-D0325F269899}',
    '/Description' => 'Intel(R) PRO/Wireless 3945ABG Network Connectn'
  }, 'Win32::TieRegistry' )
}, 'Win32::TieRegistry' );