# Meckern bis das Kamel stirbt
use warnings;

sub Foo {
  # hier nicht rumbrüllen wegen IO
  no warnings "io";
  
}

if ($bool) {
  if (42) {
    # hier nicht rumbrüllen wegen IO
    no warnings "io";
  }
}