#!/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;
}

##</code><code>##

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

    my $RegHash = $Registry->{"Classes/$ext"};

    if (not exists $RegHash->{'/'}) {
       warn "Unable to recognise association list for $ext\n";
       next;
    }

    my $class = $RegHash->{'/'};
    print "$ext is a $class\n";
}