Put the sub definition before the call and it'll work just fine. If perl doesn't recognize the name, it treats it as a bareword.