Help for this page

Select Code to Download

Select or download this

BEGIN {
    my $debug = 0;
...
}

use warnings;

Select or download this

BEGIN {
    $::DEBUG = 1;
}
use warnings $::DEBUG ? "all" : "io";  # Or some other category.