$SIG {__WARN__} = sub { require "Carp.pm"; Carp::cluck @_; }