my $ftp = Net::FTP->new("ftp.example.com");
$ftp->login('username', 'password');
$ftp->binary();

while (read INFILE, my $data, 2000000)
{
    open my $datafh, '<', \$data;
    $ftp->append($datafh, $fileToWrite);
    # Here's where I will print the progress...
}

$ftp->quit();