{
   package OtherModule;
   use warnings;
   sub routine { my $n = 0; my $i = $n + "a"; }
}

{
   no warnings;
   OtherModule->routine();
}