#!/usr/bin/perl	 -w


$main::foo = 'global';
my $bar = "my";
print "foo is ",$foo,"\n";
print "my is ",$bar,"\n";
{
	local $foo;
	local $bar;  # Dies here.

	print "foo is ",$foo,"\n";
	print "foo is ",$main::foo,"\n";
	print "bar is ",$bar,"\n";

}
print "foo is ",$foo,"\n";
print "my is ",$bar,"\n";