>perl -l -CDS -e "print qq{\x{101}}"
[funky chars]

>perl -CDS test-noCDS.pl
[funky chars]

>perl test-withCDS.pl
Wide character in print at test-withCDS.pl line 2.
[funky chars]