Select Code to Download

#!/usr/bin/perl
#----------------------------
...
$ftp->cwd($rloc) or die "Failed change working directory ", $ftp->mess
+age;
$ftp->put($file) or die "Failed to transfer file ", $ftp->message;
$ftp->quit;