>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]

##</code><code>##

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Binary build 817 [257965] provided by ActiveState
Built Mar 20 2006 17:54:25

##</code><code>##

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