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

{
   local $^W = 0;
   OtherModule->routine();
}