#!/usr/local/bin/perl5.10.0

use constant FOO => 'quux';
{
   use constant FOO => 'bar';
}
my $foo = FOO;
print $foo,"\n";
__END__
Constant subroutine main::FOO redefined at /usr/local/lib/perl5/5.10.0/constant.pm line 115.
bar