Select Code to Download

# i added 
use Encoding qw(encode decode);
...
    $file_name = decode("UTF-8", $_);
}
# cheers!

# basically i want to go through a directory with File::Find
# and print the (non-asciian) filenames to a file.
...
# then it prints mojibake both to terminal and to file

# it would be more logical if the other way around