use Net::FTP;
my $hostname=xxxx';
my $user='xxxx';                     #  <<----------- USER
my $password='xxxx';
my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->login($username,$password);    #  <<---------- USERNAME
$ftp->quit;