$SIG{__WARN__} = \&_warn_mess;

sub _warn_mess
{
  require Carp;
  print STDERR Carp::longmess(@_);
}