#!/usr/bin/perl

use strict;
use warnings;
use Encode;

binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";

open(my $find,"|-:utf8","find /usr/local/bin -type f") or die "Can't run find: $!\n";
while ( <$find> ) {
    print;
}