$SIG{__WARN__}= sub {
  return if $_[0] =~ /^Exiting subroutine/;
  warn $_[0];
};