in reply to ($$) and 1;

Also, prototypes in perl are very different compared to those of other languages. Tom Christiansen wrote an article about prototypes, showing that you are better off not using them...

http://www.perl.com/pub/a/language/misc/fmproto.html