A perl script which gets files recursively and emails them.