Sidhekin,
I will look into Test::Trap as promised.

... and I'll argue that goto LABEL is more readable than last LABEL where, as here, the latter would require the addition of a loop-once block and a no warnings 'exiting'.

I just want to make it clear for those following along at home that your comment applies to the label solution proposed by jdporter and not my proposed patching of File::Find which would work cleanly.