In addition to the pointer you got about using search(), I'd suggest you get rid of that prototype on your AddUser method. Prototypes are nearly always a mistake with perl. They don't do argument checking.