$ cat CDS.pl
#!/usr/bin/perl -l -CDS
print ${^UNICODE}, ' ', "\x{101}"

$ perl CDS.pl
Wide character in print at CDS.pl line 2.
31 Ä

$ perl -CDS CDS.pl
31 Ä