Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
            
...
            
warn "About to print";                    # primitive trace statement
print FILE "$s";
  2. or download this
    Layers before binmode: unix perlio encoding(iso-8859-1) utf8
Layers after binmode: unix perlio encoding(iso-8859-1) utf8 encoding(u
+tf-8-strict) utf8
Layers after reset: unix perlio encoding(utf-8-strict) utf8
About to print at /tmp/11119633.pl line 20.