Help for this page

Select Code to Download


  1. or download this
    if (1) {
  use warnings;
}
print undef;
  2. or download this
    BEGIN {
  if ($ARGV[0] eq '--debug') {
...
     warnings->import();
   }
}