Keith,
I'm not too sure what part of the script you would want ot see, what I did was enter the following at the begining of the script -
$mailprog = '/usr/sbin/sendmail -i -t'; # for send mail
and then I included these lines under the "sub SendMail"
my ($from, $to, $subject, $content) = @_...