use strict;
use warnings;

use Win32::TieRegistry (Delimiter=> "/");

my $test_key = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Test"};
foreach my $sub_key (keys %{ $test_key } ) {
   print "Subkey: $sub_key\n";
}