in reply to Re^2: perl determine a subroutine name by given linein thread perl determine a subroutine name by given line