Select Code to Download

use Net::FTP;
`/usr/bin/zip -r zipfile.zip /directory/to/zip/`; #-r means recurse
...
$ftp->cwd("/incoming");
$ftp->put("zipfile.zip");
$ftp->quit;

use Mail::Sender;
`/usr/bin/zip -r zipfile.zip /directory/to/zip/`; #-r means recurse
...
  msg => "your message here.",
  file => 'zipfile.zip'});