open(INP,  '<:encoding(UTF-8)', $ARGV[0])
open(OUTP, '>:encoding(UTF-8)', $ARGV[1])