my $coding = shift @ARGV || 'utf8';
my $ua = LWP::UserAgent->new;
-my $enc = find_encoding($coding);
my @URLs;
if ($target !~ /^http/ && -f $target) {
my $filename = $res->filename;
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";
}
my $suffix = 1;