Select Code to Download

my $max_tries = 5;
my $tries = 0;
...
}

print "Yay! We logged in!\n";

 $ftp->put("$dir/$file1") or die "FTP did not succesfully upload $dir/
+$file!";