use strict;
use warnings;
{
    my $foo = "Hello, world!\n";
}
{
    print my $foo; # warns: Use of uninitialized value
}