#!/usr/local/bin/perl -w
use strict;
my $fred = 3;           # accessible from here to end
                        # of file/package.
{
        my $fred = 2;   # overrides previous $fred until
                        # end of block
        print $fred;    # prints "2";
}
print $fred;            # prints "3"