binmode STDIN, ':encoding(utf8)';
print "\nEnter text: ";
chomp ($text = <STDIN>);
open (TEST, ">:encoding(UTF-8)", "test.txt") or die "Can't open file: $!";

print TEST $text;