Are you working under use strict? My first question would be to ask why you are looking for a prompt with $username, and you log in with $user. But that's the only thing I'd see off the top of my head.

Good luck

    --jb