use Win32::TieRegistry (Delimiter => '/');
my $version=2000;
{
my $mykey0 = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/ActivePerl/$version"};
print 'MK0:'.$mykey0."\n"; 
}
{
my $mykey2 = $Registry->{"HKEY_LOCAL_MACHINE/Software/ActiveState/ActivePerl/$version"};
print 'MK2:'.$mykey2."\n"; 
}

{
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/ActivePerl/$version/"};
print 'MK1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'Help//'};
print 'MV1:'.$mykeyval."\n"; 
}

{
my $part='TroubleShooters'; 
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/DeviceManager/$part/"};
print 'ms1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'/TroubleShooter-3'};
print 'ms2:'.$mykeyval."\n"; 
}

__END__ 
my $version='2.1';

my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/SPS/$version/"};
my $mykeyval = $mykey->{'/AppsDir'};
$mykeyval2="$mykeyval"."\\start.exe";

system("$mykeyval2");

##</code><code>##

use Win32::TieRegistry (Delimiter => '/');
my $version=2000;
{
my $mykey0 = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/ActivePerl/$version"};
print 'MK0:'.$mykey."\n"; 
}
{
my $mykey2 = $Registry->{"HKEY_LOCAL_MACHINE/Software/ActiveState/ActivePerl/$version"};
print 'MK2:'.$mykey."\n"; 
}

{
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/ActivePerl/$version/"};
print 'MK1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'Help//'};
print 'MV1:'.$mykeyval."\n"; 
}

{
my $part='TroubleShooters'; 
my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/DeviceManager/$part/"};
print 'ms1:'.$mykey."\n"; 
my $mykeyval = $mykey->{'/TroubleShooter-3'};
print 'ms2:'.$mykeyval."\n"; 
}

__END__ 
my $version='2.1';

my $mykey = $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/SPS/$version/"};
my $mykeyval = $mykey->{'/AppsDir'};
$mykeyval2="$mykeyval"."\\start.exe";

system("$mykeyval2");

##</code><code>##

MK0:
MK2:
MK1:Win32::TieRegistry=HASH(0xb6e354)
MV1:C:\Perl\html\index.html
ms1:Win32::TieRegistry=HASH(0xa3ec64)
ms2:hcp://help/tshoot/Err_Hardw_Error3.htm