use open ':std', OUT => ':encoding(cp1251)';