use Win32::Registry;
my $NumTools;
$p = "Software\\Microsoft\\DevStudio\\6.0\\Tools";
$main::HKEY_CURRENT_USER->Open($p, $Tools) ||
	die "Open: $!";
$Tools->GetValues(\%vals);
foreach $k (keys %vals) {
	$key = $vals{$k};
IF ($$key[0] eq "NumTools") { $NumTools = $$key[2]; }

}

##</code><code>##

IF ($$key[2] eq "C:\\Tool\\Lint\\Bin\\Lint.exe") {
    print "PC-Lint is already installed";
} ELSE {

##</code><code>##

$Tools->SetValueEx("AskArgument#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("CloseWindow#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("DefaultArguments#$NumTools", 0, REG_SZ, "");
$Tools->SetValueEx("GUITool#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("InitialDirectory#$NumTools", 0, REG_SZ, "C:\\Tool\\Lint\\Bin");
$Tools->SetValueEx("MenuName#$NumTools", 0, REG_SZ, "PCLint");
$Tools->SetValueEx("OutputRedirect#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("PathName#$NumTools", 0, REG_SZ, "C:\\Tool\\Lint\\Bin\\Lint.exe");
$Tools->SetValueEx("ReloadNoPrompt#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("UseSearchPath#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("VisibleOnMenu#$NumTools", 0, REG_DWORD, "0");
$NumTools++;
$Tools->SetValueEx("NumTools", 0, REG_DWORD, "$NumTools"); 
}

##</code><code>##

IF ($$key[0] eq "NumTools") { $NumTools = $$key[2]; }

}