Select Code to Download

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