#!/usr/bin/perl -w
use strict;
use constant TEST => 'outside';
if (0) {
  use constant TEST => 'if(0)';
}
print TEST, "\n";
__END__
outputs: 
Constant subroutine TEST redefined at ...
if(0)