Index: misc/findcombinable.pl
===================================================================
--- misc/findcombinable.pl	(revision 0e3de6438268c17083907e7410471d9ee497963f)
+++ misc/findcombinable.pl	(revision 2526624da64c681b411841def00f3a8c57eda429)
@@ -6,7 +6,5 @@
 
 use Encode;
-use Unicode::Normalize qw(NFC NFKC);
-binmode STDOUT => 'encoding(utf8)';
-binmode STDERR => 'encoding(utf8)';
+use Unicode::Normalize qw(NFC);
 
 my $top = shift @ARGV || exit;
@@ -14,5 +12,4 @@
 
 my $utf8 = find_encoding("utf8");
-$top = $utf8->decode($top);
 
 checkdir($top);
@@ -21,4 +18,5 @@
     my $str = shift @_;
     
+    $str = $utf8->decode($str);
     if ($str ne NFC($str)) {
         return 1;
@@ -38,5 +36,4 @@
     my @dirs;
     while (my $entry = shift @entries) {
-        $entry = $utf8->decode($entry);
         if (match($entry)) {
             print "'$target/$entry' can be composed\n";