use Win32::TieRegistry;

my $clsid = $Registry->{'HKEY_LOCAL_MACHINE\SOFTWARE\Classes'.
            '\Outlook.Application\CLSID\\'}->{'\\'};

print $Registry->{'HKEY_CLASSES_ROOT\CLSID\\'.$clsid}->{'\\'};

__END__
Microsoft Outlook 8.0 Object Library