When you use prototypes, perl wants you to declare the prototypes before you use them in the code.
If you put your subs before the main body of your script, then this will fix the problem

Shameless SVG plug: The March SVG London Users Meeting will take place Tuesday 9 March at the Round Table pub at 1900h.
There will be two of perl-related technical presentations.