local $SIG{__WARN__} = sub {
          print "WARNING!\n";
};