Help for this page

Select Code to Download


  1. or download this
    use warnings;
print($^W, "\n");  # 0  XXX
  2. or download this
    {
   use warnings;
...
   local $^W = 1;
   print($^W, "\n");  # 1  XXX
}