#!/usr/bin/perl

use strict;
use warnings;
use encoding 'utf8';

my $dir = "/tmp/Foo";

unless (-e $dir){
  mkdir $dir or die;
}
chdir $dir or die;

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

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;
print "Got ", scalar @files, " files\n";

open my $fh, ">", 'foo baz' || die "Failed to open file : $!";
close $fh || die "Failed to close file : $!";

foreach my $char ("\x{20}", "\x{A0}") {
  my $file = "foo".$char."baz";
  if (-e $file){
    print "got it\n"
  } else {
    print "not got it...\n";
  }
}

system("cat foo\x{20}baz");
system("cat foo\x{A0}baz");