#!/usr/bin/perl

#use utf8;

print "Text? ";
chomp ($note = <STDIN>);
print "\nText: ${note}";


#open(TEST, ">>:encoding(UTF-8)", "test.txt") or die "Can't open UTF-8 encoded file: $!";
open(TEST, ">>", "test.txt") or die "Can't open file: $!";
print TEST "\nDirectly from the script: αινσφ&#337;ϊό&#369;\n";
print TEST "\nUser input via variable: $note\n";

close TEST;
<STDIN>;