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

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