#!/usr/bin/perl

use warnings;
use strict;

use Win32::TieRegistry (Delimiter => "/");
use Data::Dumper;

foreach my $class (keys %{ $Registry->{"Classes/"} }) {
    next unless substr($class, 0, 1) eq '.';

    my $watchcode;

    my $RegHash = $Registry->{"Classes/$class"};
    foreach my $key (keys %$RegHash) {
        next if $key ne "/";

        my $val = $RegHash->{$key};
        print "$class = $val\n";
        $watchcode = 1;
        last;
    }

    warn "failure to recognise association list\n"
        unless $watchcode;
}