perl -w >> ftp.log -MNet::FTP -le'
     ( $host, $user, $pass, $dir ) = @ARGV;
     $ftp = Net::FTP->new($host) or die "$@\n";
     $ftp->login( $user, $pass ) or die $ftp->message;
     $ftp->cwd($dir) or die $ftp->message;
     $ftp->binary;
     for $file ($ftp->ls){
             push @files, $file;
     }

     for $file (@files) {

     }
     $ftp->quit or die $ftp->message;
' server user pass dir