use strict;
use warnings;
use Net::FTP;
use Net::Cmd;

my $host = "1.1.1.1";
my $user = "Username";
my $pass = "Password";
my $dir = "/07-Nov-2016/Documents";
my $zipfile = "Documents_11222016.zip";

my $f = Net::FTP->new($host) or die $!;
if($f->login($user, $pass)){
  print "Connection established\n";
  $f->binary();
  $f->cwd($dir);

  # want logic to zip Document folder as Documents.zip

  $f->get($zipfile, "C:\temp\".$zipfile) or die $!;
}
else{
  die $!;
}