iperl> my $foo = "abc"

    = abc

    iperl> do {

               my $bar = "def"

               }

    = def

    iperl> print $foo

    abc

    = 1

    iperl> print $bar
     
    Use of uninitialized variable in...