When I run that "hello.pl" in PS-ISE, it prints "Hello world" fine.
But, I would like to interact with the console, using Unicode characters. When I run this program, it hangs (doesn't even print the first message, which should be straightforward):

#!/usr/local/bin/perl
 # Load a conversion table from CONVTABLE to %ConvTable. Then find mat
+ches in a file and convert them.
 use strict;
 use warnings;
 use Encode;
 use 5.014;
 use utf8;
 use diagnostics;
 use autodie; 
 use warnings    qw< FATAL  utf8     >;
 use open        qw< :std  :utf8     >;
 use charnames   qw< :full >;
 use feature     qw< unicode_strings >;
 
 my ($i,$j,$InputFile, $OutputFile,$word,$from,$to,$linetoprint);
 my (@line, @lineout); 
 my %ConvTable;    # Conversion hash
 my ($CONVTABLE, $INPUT, $OUTPUT);
 print 'Conversion table: opening file: E:\My Documents\Technical\Perl
+\Conversion table 1.txt'."\n";
 my $sta= open ($CONVTABLE, "<:encoding(utf8)", 'E:\My Documents\Techn
+ical\Perl\Conversion table 1.txt');
 binmode STDOUT, ':utf8';    # output should be in UTF-8
 binmode $DB::OUT, ':utf8' if $DB::OUT; # for the debugger
 # Load conversion hash
  while (<$CONVTABLE>) { chomp;
     print "$_\n";
    @line = split;
    $/=',';
    chomp(@line); # Chomp chomps a variable if its last char equals $/
    $/="\n"; # Restore $/
    $ConvTable{$line[0]}=$line[1];
    } # end while (<$CONVTABLE>)
 while ( ($i,$j) = each (%ConvTable) ) {
    print "$i => $j\n";
}
 # Open file to convert
  print "Input to convert: enter path\\fileName: ";
 $InputFile = <STDIN>;
    chomp($InputFile);
    print "\$InputFile=\"$InputFile\"\n";
    $sta = open ($INPUT, "<:encoding(utf8)", $InputFile);
 # Open output file
 print "OUTPUT: enter path and fileName: ";
    $OutputFile = <STDIN>;
    chomp($OutputFile);
    print "\$OutputFile= \"$OutputFile\"\n";
    $sta = open ($OUTPUT,  ">:encoding(utf8)", ">$OutputFile");
# Iterate over lines of INPUT, convert according to %ConvTable, store 
+in OUTPUT
while  (<$INPUT>) { chomp;
    @line = split;
    foreach $word(@line) {
        while (($from, $to) = each(%ConvTable)) {  # traverse the conv
+ersion table.
                                                   # check if there ar
+e any matches in the word and substitue
            $word =~ s/$from/$to/;  # substitute substrings if match
        }  # end value in %ConvTable
        push(@lineout, $word);
    }  # end foreach string in the line
    $linetoprint = join (", ",@lineout);
    print ($OUTPUT, "$linetoprint\n");
    $#lineout= (-1);    # empty @lineout
} # end while over INPUT file
[download]

Should I flush the STDOUT buffer? How to do it?