>perl -le"use open ':std', ':encoding(cp850)'; use if $ARGV[0], 'locale'; print sort 'a', chr(0xE1), 'b'" 0
abá

>perl -le"use open ':std', ':encoding(cp850)'; use if $ARGV[0], 'locale'; print sort 'a', chr(0xE1), 'b'" 1
aáb