Help for this page

Select Code to Download


  1. or download this
    no warnings 'layers';
use open ':locale';
use warnings 'all';
  2. or download this
    perl -pi.bak -e "if( $. == 2 ) { $_ = q/no warnings 'layer';\n use ope
+n ':locale';\nuse warnings 'all';\n$_/;}" myscript.pl
  3. or download this
    
no warnings 'layer'; # This squelches any warning due
...
use open ':locale'; # set a default locale for all IO
                    # in your script based on env vars.
use warnings 'all';