BEGIN {
    if(  eval { require warnings }  ) {
        warnings->import();
    } else {
        $^W= 1;
    }
}