#!/usr/bin/perl
use strict;
my $foo = 1;

if ($foo) {
   my $bar = "true";
}
print $bar;

##</code><code>##

my $bar;
if ($foo) {
   $bar = "true";
}
print $bar;

##</code><code>##

{
my $bar;
if ($foo) {
   $bar = "true";
}
print $bar;
}

##</code><code>##

if ($foo) {
   my $bar = "true";
}
print $bar;