BEGIN {
    $INC{"warnings.pm"} = 1 if $] < 5.006;
}
use strict;
use warnings;