Select Code to Download

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

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

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

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

$ perl -CDS CDS.pl
31 Ä

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