use utf8; use open IO => qw{:encoding(utf8) :std}; #### $ alias perlu alias perlu='perl -Mstrict -Mwarnings -Mautodie=:all -Mutf8 -C -E'