Use Net::DNS to look up the MX record for the email recipient(s), then Net::SMTP to that mailserver.

Net::SMTP does not provide support for attachments, so you'll need MIME::Lite or similar to create the attachments first.