open (FILEIN, "<:utf8", $ARGV[0]) 
  || die "Unable to open source file $ARGV[0] : $!\n";