# Send report inline in email
    open( RPT_FILE, "<", "$cfg::params{'RPT_FILE'}" ) or
                    exit_with_error("do_report(): Can't open file for input: ".
                                    "$cfg::params{'RPT_FILE'}: $!\n");

    # Enable slurp mode & encode for mail attachment: see send_email()
    $report_data = encode_base64( do { local $/; <RPT_FILE> });

    close(RPT_FILE) or exit_with_error("do_report(): Can't close file for input: ".
                                        "$cfg::params{'RPT_FILE'}: $!\n");

    # Create report name to inc hostname
    ($r_name, $r_dir, $r_ext) = fileparse($cfg::params{'RPT_FILE'}, ".csv");
    $report_name = $r_name."_".$hostname.$r_ext;
    send_rpt_email($report_name, $report_data, $cfg::params{'RPT_EMAIL'});


#******************************************************************************
#
# Function      : send_rpt_email
#
# Description   : Send an email containing report data as attachment.
#
#                 NB: normally we'd use the Mail::Mailer module, but this
#                 Solaris 10 Perl 5.8 doesn't have it and we can't add it,
#                 so access sendmail directly, see the (old edition)
#                 Perl Cookbook Chap 18.3
#
# Params        : $_[0]     report name
#                 $_[1]     Report data
#                 $_[2]     target address(es). csv list if >1 address
#
# Returns       : none
#
#******************************************************************************
sub send_rpt_email
{
    my (
        $report_name,       # includes hostname
        $report_data,       # ie rpt file content: uuencode64 format
        $target_addresses,  # email address(es). csv list if >1 address
        $hostname,          # name of this box for sending
        $prog_full_name,    # prog path + name
        $contact_email,     # contact email address
        $mailer,            # mailer object
        $sender,            # sender of email as specified in cfg file
        $subject,           # subject line in email
        $body_text          # actual email msg text
        );

    # Assign input params
    $report_name = $_[0];
    $report_data = $_[1];
    $target_addresses = $_[2];

    # Get hostname anyway we can using Sys::Hostname;
    # tries syscall(SYS_gethostname), `hostname`, `uname -n`
    $hostname = Sys::Hostname::hostname();

    # Get program full path name
    $prog_full_name = cwd()."/${0}";

    # Set the fields required ...
    $sender = "$prog_full_name";
#    $subject = "$prog_full_name";
    $subject = "${0} on $hostname";

    # Doing it like this because we don't have certain useful
    # modules available; see fn header
    $body_text = <<END_OF_BODY;
Content-Type: multipart/mixed; boundary="-q1w2e3r4t5"

---q1w2e3r4t5
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

This is an automated message, please see attachment
---q1w2e3r4t5
Content-Type: application/octet-stream; name="$report_name"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$report_name"

$report_data
---q1w2e3r4t5--
END_OF_BODY

    # Target email address is 1 or more addresses, as a csv list
    for $contact_email ( split( /,/, $target_addresses) )
    {
        # ... and send it
        open(SENDMAIL, "|/usr/sbin/sendmail -oi -t ")
                            or die "Can't open pipe to sendmail: $!\n";
        print SENDMAIL "From: $sender\n".
                        "To: $contact_email\n".
                        "Subject: $subject\n".
                        "$body_text\n";
        close(SENDMAIL) or die "Can't close sendmail pipe: $!\n";;
    }
}