Select Code to Download

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

use Encode;

opendir( my $dir, "/usr/local/bin" ) or die "Can't read /usr/local/bin
+: $!\n";
while ( my $fname = decode( "utf8", readdir( $dir ))) {
    print $fname, "\n";
}

#!/usr/bin/perl

...
while ( <$find> ) {
    print;
}