Select Code to Download

$subKey= $key->Open( $sSubKey, $rhOptions )

...
subkeys specifying the path to the subkey to be opened.

   ...

#!/usr/bin/perl -w
#
...
print "Deleting label '$label' ...\n";
my $result = delete($h_shell->{"$label/"});
printf "Result of delete:  '%s'\n", Dumper($result);