$ cat test-none.pl
#!/usr/bin/perl
print "foo";

$ cat test-ell.pl
#!/usr/bin/perl -l
print "foo";

$ perl -l test-none.pl
foo

$ perl test-ell.pl
foo

$ ./test-ell.pl
foo

$ ./test-none.pl
foo$ # note the lack of a newline

##</code><code>##

$ cat test-noCDS.pl
#!/usr/bin/perl -l
print "\x{101}";

$ cat test-withCDS.pl
#!/usr/bin/perl -l -CDS
print "\x{101}";

$ perl -l -CDS -e 'print "\x{101}"'
Ä

$ perl -CDS test-noCDS.pl
Ä

$ perl test-withCDS.pl
Wide character in print at test-withCDS.pl line 2.
Ä

$ ./test-withCDS.pl
Ä



##</code><code>##

$ 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 Ä


##</code><code>##

$ perl -v
This is perl, v5.8.8 built for i686-linux