#! perl -w

use strict;
use Win32::TieRegistry;

use constant BASE => 'LMachine\\Software\\Microsoft\\Windows NT\\CurrentVersion\\HotFix\\';

my $fix = $Registry->{+BASE} or die "oops, not admin? ($^E)\n";

foreach my $f( sort keys %$fix  ) {
    chop(my $id = $f);
    my $desc = $Registry->{BASE.$f}{Comments} || '<no description>';
    print "$id\t$desc\n";
}