print ("Please choose a database to generate a report from.[1-3]\n");
print ("[1]	Database1\n");
print ("[2]	Database2\n");
print ("[3]	Database3\n");
print (">");
$a = <STDIN>;
chomp $a;

if ($a == "1")
	{
		$pathe = "K:\\path1";
	}
elsif ($a == "2")
	{
		$pathe = "K:\\path2";
	}
elsif ($a == "3")
	{
		$pathe = "K:\\path3;
	}

chomp $pathe;

use Win32::Registry;
$p = "CLSID\\{42DE62C7-AD04-11D1-BE7E-00E0290B0890}\\LocalServer32";
$main::HKEY_CLASSES_ROOT->Open($p, $CurrVer) || 
        die "Open: $!";
$CurrVer->GetValues(\%vals); # get sub keys and value -hash ref
foreach $k (keys %vals) {
    $key = $vals{$k};
}
$CurrVer->SetValue("",REG_SZ, "$pathe");
foreach $k (keys %vals) {
    $key = $vals{$k};
    print "$$key[2]\n";
}


$p = "CLSID\\{42DE62C7-AD04-11D1-BE7E-00E0290B0890}\\LocalServer32";
$main::HKEY_CLASSES_ROOT->Open($p, $CurrVer) || 
        die "Open: $!";
$CurrVer->GetValues(\%vals); # get sub keys and value -hash ref
foreach $k (keys %vals) {
    $key = $vals{$k};
}
$CurrVer->SetValue("",REG_SZ, "$pathe");
foreach $k (keys %vals) {
    $key = $vals{$k};
    print "$$key[2]\n";
}

$p = "CLSID\\{E850B195-F118-4C04-9E57-9901CDB7430D}\\LocalServer32";
$main::HKEY_CLASSES_ROOT->Open($p, $CurrVer) || 
        die "Open: $!";
$CurrVer->GetValues(\%vals); # get sub keys and value -hash ref
foreach $k (keys %vals) {
    $key = $vals{$k};
}
$CurrVer->SetValue("",REG_SZ, "$pathe");
foreach $k (keys %vals) {
    $key = $vals{$k};
    print "$$key[2]\n";
}

$p = "CLSID\\{7C4A7B0C-6055-4551-B870-F112BE54C094}\\LocalServer32";
$main::HKEY_CLASSES_ROOT->Open($p, $CurrVer) || 
        die "Open: $!";
$CurrVer->GetValues(\%vals); # get sub keys and value -hash ref
foreach $k (keys %vals) {
    $key = $vals{$k};
}
$CurrVer->SetValue("",REG_SZ, "$pathe");
foreach $k (keys %vals) {
    $key = $vals{$k};
    print "$$key[2]\n";
}