$ perl -wle'

use constant SECURITY => 23;

sub SECURITY { print "something" }'
Prototype mismatch: sub main::SECURITY () vs none at -e line 5.
Constant subroutine SECURITY redefined at -e line 5.