perl >>ftp.log -MNet::FTP -e '
        ( $host, $user, $pass ) = @ARGV;
        $ftp = Net::FTP->new($host) or die "$@\n";
        $ftp->login( $user, $pass ) or die $ftp->message;
        $ftp->binary;
        @files = $ftp->ls;
        $ftp->get($_) for @files;
        $ftp->quit or die $ftp->message;
     ' <host> <user> <pass>