#!/usr/local/bin/perl
#

{
    use warnings;
    $foo = 1;
    $bar = 1;
}

{
    no warnings;
    $foo = 1;
    $baz = 1;
}