open( IN, "<:encoding(cp1251)", $filename ) or die $!;