C:\test>perl -wE"$SIG{__WARN__}=sub{}; sub f(){1}; say f; sub f(){2}; say f;"
Constant subroutine f redefined at -e line 1.
1
2