Try this trick graff showed me. It somehow forces Perl to set the right flag on the filename to make it decode right.

 #this decode utf8 routine is used so filenames with extended 
   # ascii characters (unicode) in filenames, will work properly 
   use Encode;  
   opendir my $dh, $path or warn "Error: $!"; 
   my @files = grep !/^\.\.?$/, readdir $dh; 
   closedir $dh;                                       
   # @files = map{ "$path/".$_ } sort @files; 
   #$_ = decode( 'utf8', $_ ) for ( @files );    
   @files = map { decode( 'utf8', "$path/".$_  ) } sort @files;
[download]

HTH, zentara