Done.
I also reformatted the according functions a bit using perltidy using

-i=4    # Indent level is 4 cols
-ce     # cuddled else

May I suggest adding a tiny .perltidyrc to the project?