% perl -Mstrict -wle 'use constant x => 1; { no warnings; use constant x => 4; } print x'
Constant subroutine main::x redefined at /opt/lib/perl5/5.8.3/constant.pm line 108.
4