>perl -wle 'for(1,2){ eval "sub moo{}" }; sub moo{};'
Subroutine moo redefined at (eval 1) line 1.
Subroutine moo redefined at (eval 2) line 1.