Index: misc/save.pl
===================================================================
--- misc/save.pl	(revision a74d46aaffc01258959a744d35aaad30d58f425d)
+++ misc/save.pl	(revision a1128c4312a43317531d547bd3af1f2f56bbaeb6)
@@ -14,5 +14,4 @@
 
 my $ua  = LWP::UserAgent->new;
-my $enc = find_encoding($coding);
 
 my @URLs;
@@ -34,5 +33,11 @@
         my $decoder = Encode::Guess->guess($filename);
         if (ref($decoder)) {
-            $filename = $enc->encode($decoder->decode($filename));
+            print $decoder->name;
+            $filename = encode(
+                $coding,
+                $decoder->decode($filename),
+                Encode::FB_HTMLCREF
+            );
+            print ": $filename\n";
         }