{
  no warnings;
  Foo->bar();
}

package Foo;
use warnings;
sub bar{
  print $baz
}