The easiest approach is to wrap the script in a second script that runs the first one in (say) backticks and then sends the output via MIME::Lite.

use MIME::Lite;

my $output = `other_script.pl 2>&1`;

$msg = MIME::Lite->new(
    From    => 'me@myhost.com',
    To      => 'you@yourhost.com',
    Cc      => 'some@other.com, some@more.com',
    Subject => 'Output of a script...',
    Type    => 'multipart/mixed'
);
 
### Add parts (each "attach" has same arguments as "new"):
$msg->attach(
    Type     => 'TEXT',
    Data     => $output
);
[download]

Like Corion, I would use MIME::Lite but...

The documentation warns:
"MIME::Lite is not recommended by its current maintainer."

For that reason, I started looking at alternatives but didn't really get very far - mainly because of familiarity with the easy to use MIME:Lite module.

Yes, it's not recommended by its maintainer, but it still works very well, and I haven't encountered a case where I had to investigate a different module.

Also, the module won't be going anywhere and gets a release from time to time. The issues with patches are somewhat likely to be worked on.

For that reason, I started looking at alternatives but didn't really get very far

I can recommend the Email::* modules by RJBS, e.g. Email::Simple, Email::MIME, or Email::Stuffer.

Task::Kensho has some recommendations. In addition to these I am a long-time user of Mail::Sendmail for simple sending.

---

🦛

Having a wish to do what the OP wants and being endowed with the super-power of reading :-), I followed the pointers to Email::Stuffer and wrote myself the script below to parse nginx logs & email me every day about who has been trying to access my server (only a few of us should do that). I have given the whole script in case you or anyone wants to trace everything, but the relevant parts are:

use Email::Stuffer;

Email::Stuffer->to($opt_email)
              ->from('nginxlog@davies.systems')
              ->subject($subject)
              ->text_body($body)
              ->transport($transport)
              ->send;
[download]

It's not that different from MIME::Lite. The entire modulino:

Regards,

John Davies

If you just need to catch the output of your script and send it in an email, and your Perl was built with PerlIO (default since 5.8 — you almost certainly have it), you can reopen STDOUT to an in-memory "file" or simply select a different filehandle opened to an in-memory file.

Something like: (untested)

my $MailText = '';
open MAILOUT, '>', \$MailText or die "open in-memory output: $!";
select MAILOUT;
# ...
print "foo\n";
# ...
print "bar\n";
# ...
close MAILOUT; select STDOUT;
# $MailText now contains "foo\nbar\n"; send it however you want
[download]