Thank you very much all!

@ NetWallah This works, however with a warning "Use of a uninitialized value $dir ..." on the first run of the loop. After your explanation I understand now why.

@ RichardK The line number corresponds to the subroutine wanted in the script. That is what I meant :-)

@ fishmonger This was a aha moment for me :-) Thanks again! Update: See Re^2: File::Find in a loop