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