use open qw( :std :locale );