Just to be clear, Perl wasn't complaining that a prototype was needed, it was complaining that you specified a prototype, but not early enough for it to be applied to a caller.