The warning is doing exactly what it's supposed to do, catching a misspelling. The variable is called $user, earlier. use strict;, btw.

After Compline,
Zaxo