Your authenticate sub is expecting two args. Since the first is called $self, I will assume you want object oriented syntax. The problem I see with this is that the calling routing, start(), does not seem to have object oriented syntax. Although it uses a variable called $self, I don't see where you load it from but it appears to be defined outside of that routine.

If you post the rest of the code, we might be able to come up with a more complete solution to your problem but from what you've shown here my recommendation would be to remove the $self in authenticate since you are only passing one argument in.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]