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";
}