#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my $dir = "/tmp/Foo";

mkdir $dir or die;
chdir $dir or die;

opendir my $dh, $dir or die;
my @files = readdir $dh;
closedir $dh;
say "Got ", scalar @files, " files";

foreach my $char ("\x{20}", "\x{A0}") {
    my $file = "foo{$char}bar";
    open my $fh, ">", $file or die;
}

opendir $dh, $dir or die;
@files = readdir $dh;
closedir $dh;
say "Got ", scalar @files, " files";

__END__
Got 2 files
Got 4 files