#!/usr/bin/perl
open my $fh, "<:encoding(euc-jp)", 'kanjidic';