In this example I was using Filesys::DfPortable and Mail::Sendmail. Today I'd probably use Email::Stuffer but the basicas are the same. See also the video about Email::Stuffer.