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