$ perl -we'sub x { &foo } sub x { &bar }'
Subroutine x redefined at -e line 1.