Yes. If you use my
Archive::Zip module, you can easily zip or unzip files. There is the additional
Archive::Zip::Tree module that knows about doing whole directory trees. Ignore CPAN.pm if it says that Archive::Zip doesn't exist; they screwed up the indexing recently and I don't know if they fixed it yet. If you have trouble getting Archive::Zip, you can get it directly from CPAN at
http://www.cpan.org/modules/by-authors/id/N/NE/NEDKONZ/Archive-Zip-0.11.tar.gz.
Then look at MIME::Tools for how to put it into an email message, or Net::FTP for sending it.