Select Code to Download

#!/usr/bin/perl
use warnings;
...
print "Logging out..";
$ftp->quit or die $ftp->message;
print "..done!\n";