use strict;
use Win32::TieRegistry;

my $key = "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services";
$key .= "\\EventLog\\Application\\MSDTC";

my $vals = $Registry->{$key} or  die "Can't find the Windows tips: $^E\n";

foreach my $k (keys %$vals){
   if($k =~ /CategoryCount/){
      print "$k => ", hex($vals->{$k}), "\n";
   }
   else{
      print "$k => $vals->{$k}\n";
   }
}

##</code><code>##

EventMessageFile => C:\WINNT\System32\MSDTCPRX.DLL
TypesSupported => 0x00000007
CategoryMessageFile => C:\WINNT\System32\MSDTCPRX.DLL
CategoryCount => 18