my $class;
my $val;
my $key;
my $watchnum = 0;
my $error;

unless (defined($ARGV[0])){
	foreach $class (keys %{ $Registry->{"Classes:"} }){
		if ($class =~ /^[.]/) {
			my %RegHash = %{ $Registry->{"Classes:$class"} };
			$error = Dumper %RegHash;
			while (my ($key, $val) = each(%RegHash)){#or die "failure to read registry: $! \nlast contents of Registry Hash = $error \n";
		 		if ($val eq ":"){
			 		print "$class = $key\n";
			 		$watchnum = 1;
		 		}
			}
			if ($watchnum == 0){
				die "failure to recognise association list: $!";
			}
		}
	}
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Win32::TieRegistry (Delimiter => ":");
use Data::Dumper;

my $class;
my $val;
my $key;
my $error;

unless (defined($ARGV[0])){
	foreach $class (keys %{ $Registry->{"Classes:"} }){
		if ($class =~ /^[.]/) {
			my $RegHash = $Registry->{"Classes:$class"};
			#$error = Dumper %RegHash;
			while (my ($key, $val) = each(%$RegHash)){#or die "failure to read registry: $! \nlast contents of Registry Hash = $error \n";
		 		if ($key eq ":"){
			 		print "$class = $val\n";
			 		}
			 	#else{
				#	warn "unable to recognise association for $class"
			#}
		}
	}
}
}