perl -e'*TEST=sub(){1};*TEST=sub(){2}'
Constant subroutine main::TEST redefined at -e line 1.