open(INFD,  '<:utf8',  $inFile)  or die "Cannot open $inFile: $!";
  open(INFD,  '<:shiftjis',  $inFile)  or die "Cannot open $inFile: $!";