BEGIN { $SIG{__WARN__} = sub {
    require Carp;
    Carp::cluck( @_ );
}; }