226 Transfer complete.
local: file.DAT remote: file.DAT
92191338 bytes sent in 7.8 seconds (11475.52 Kbytes/s) 
##</code><code>##

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>