~>perl test.pl
first definition
Subroutine foo redefined at (eval 2) line 2.
second definition