#!/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>;

##</code><code>##

#!/usr/bin/perl
use warnings;
use Spreadsheet::WriteExcel;

  # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    $worksheet = $workbook->add_worksheet;


# write file to column A
open (IN, "column1.txt");
$count = 0;

while (<IN>) {
$count ++;
chomp ($_);
$worksheet->write("A$count", $_);
}
close IN;

<STDIN>;