Select Code to Download

perl -w >> ftp.log -MNet::FTP -le'
     ( $host, $user, $pass, $dir ) = @ARGV;
...
     }
     $ftp->quit or die $ftp->message;
' server user pass dir