perl -Mopen=:std,:encoding(Cp437) ...