my $filename = "C/Perl64/Perl Scripts/Names.txt";
open(my $fh,'<:encoding(UTF-8)', $filename)
    || die "Could not open file '$filename': $!";