open INFILE,  "<:utf8" , $infilename || die ("can't open $infilename") ;
 
    while  (my $line = decode_utf8(<INFILE>)) {
    }