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