#! perl -slw
use strict;
use constant FRED => 12345;

print FRED;

undef *FRED;

print FRED;

__END__
C:\test>junk84
12345
12345