#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   uscope2                                                          #
#                                                                           #
#  WHY:    Demonstrates the use of the { } scope operators to create        #
#          a named scope block.                                             #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Sun Sep  6 21:01:16 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

$i = 1;
print "i = $i\n";

foreach $item ( 2..4 )
{
	my( $i );
	$i = $item;
	print "i = $i\n";
}

print "i = $i\n";