Perl Script -- Modified e-mail sender for HP Operations for Unix with Header/Footer and Word Wrap

#!/usr/bin/perl
# Perl script to send email alerts from HP OV events
# Invoked via notification option
# Version 2.8

my $message_id = $ARGV[0];
my $source_node = $ARGV[1];
my $source_node_type = $ARGV[2];
my $date_created = $ARGV[3];
my $time_created  = $ARGV[4];
my $date_received = $ARGV[5];
my $time_received = $ARGV[6];
my $application = $ARGV[7];
my $message_group = $ARGV[8];
my $object = $ARGV[9];
my $severity = $ARGV[10];
my $operators = $ARGV[11];
my $message_text = $ARGV[12];
my $instruction = $ARGV[13];
my $cma = $ARGV[14];
my $supp_dup_msgs = $ARGV[15];

use Net::SMTP;
use strict;
use Text::Wrap;

# Wrap the message_text into something more palatable
my $wrap_text = wrap("\t", "", "$message_text\n");

# Configure the mail server IP/name here
my $MAILHOST = '192.168.0.0'; #Insert your SMTP server here

# Configure the email address of the receiver here.
my $address = '[email protected]';

# Configure a name to appear in the 'From' field of the email msg here
my $FROM = '[email protected]';

my $msg = ("Header\n
\n
$source_node had a $severity error on $date_created at $time_created.\n
The Error message is:\n
\n
$wrap_text\n
\n
Footer");

# connect to the smtp server
my $smtp = Net::SMTP->new($MAILHOST, Timeout => 10) or die "Unable to connect to mail host :

$MAILHOST  - $!\n";

$smtp->mail($address);
$smtp->to($address);
$smtp->data();
$smtp->datasend("From: $FROM\n");
$smtp->datasend("To: $address\n");
$smtp->datasend("Subject: $source_node has a $severity error.\n");
$smtp->datasend("\n$msg \n\n");
$smtp->datasend;
$smtp->dataend();
$smtp->quit;

open(MYOUTFILE, ">>/var/opt/OV/maillog.log");
print MYOUTFILE "Timestamp: " $source_node “ “ $date_created “ “ $time_created “ “ $message_text “\n”;
close(MYOUTFILE);