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
);