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

exit if defined($ARGV[0]); # Why btw?

foreach my $class (sort keys %{ $Registry->{"Classes/"} }){
    next unless $class =~ /^[.]/;
    my %RegHash = %{ $Registry->{"Classes/$class"} };

    print "$class = $RegHash{'/'}\n" if exists $RegHash{'/'};
}