Select Code to Download

#!/usr/bin/perl

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

foreach my $ext (keys %{ $Registry->{"Classes/"} }) {
    next unless substr($ext, 0, 1) eq '.';
...
    my $class = $RegHash->{'/'};
    print "$ext is a $class\n";
}