#!/usr/bin/perl
    $foo = "bar";
    {
        my $foo = "something else";
        print "$foo\n";
    }
    print "$foo\n";