my $date = "bar"; 
print "Outside 1 : $date\n";
{ 
     my $date = "foo"; 
     print "Inside : $date\n";
}
print "Outside 2 : $date\n";