A tip for you. Don't use prototypes. They don't do what you probably think they do, and can cause a lot of bugs.

See Far More than Everything You've Ever Wanted to Know about Prototypes in Perl -- by Tom Christiansen for details.