Help for this page

Select Code to Download

Select or download this

BEGIN {
    if ($] < 5.006) {
...
        *{'warnings::unimport'} = sub {0};
    }
}