In the call to $ftp->login you are using the variable $username, but you never set that variable to a value. You set the variable $user to a value, but you never use it anywhere.

Using -w and use strict in your scripts would alert you to problems like this.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me