use strict;
use warnings;
my $x;

{
    no warnings;
#    no warnings 'uninitialized';
    print "$x";
    warn "inside";
}
print "$x";
warn "outside";