Select Code to Download

cd begperl
mv newline.pl\  newline.pl

LS(1)                             User Commands                       
+      LS(1)

...

       --block-size=SIZE
              use SIZE-byte blocks.  See SIZE format below

#!/usr/bin/perl -w
open my $FH, '>', "test\ \r\x1b" or die;
print $FH "foo\n";
close $FH;

$ ls -alb
total 2
...
drwxr-xr-x+ 1 301058 Domain Users  0 2010-12-15 14:13 ..
-rw-r--r--  1 301058 Domain Users 91 2010-12-15 14:12 foo.pl
-rw-r--r--  1 301058 Domain Users  4 2010-12-15 14:14 test\ \r\033

$ rm test\ ^M^[