#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Unicode::Normalize qw{ NFKD NFKC };

say $^O;

my $letter = "\N{LATIN SMALL LETTER A WITH ACUTE}";

open my $out, '>', NFKD($letter) or die "Open: $!";
unlink NFKC($letter) or warn "Warn unlink: $!";
unlink NFKD($letter) or die "Unlink: $!";