use Carp;
$SIG{__WARN__} = \&Carp::cluck;