passing variables in EMAIL

[Lance Prais]

I am unseeing the following piece of code to send
email.  In order for this
email to be generated there needs to be an error in my
script.

  use Mail::Sendmail;                    #Send and
email if there are errors
  %mail = ( To      =>  '[EMAIL PROTECTED]',
            From    =>  '[EMAIL PROTECTED]',
            Subject =>  'Email Manager not running',
            Message =>  'Email Manager not running'
           );
  sendmail(%mail) or die $Mail::Sendmail::error;
  print "OK. Log says:\n", $Mail::Sendmail::log;


I would like to include  in the message excepts from
the .txt document I am
reading.  Does any one know how to do this?

I tried to use '((substr($line, 42, 7)' which the text
I want to include but
it did not show the output.


If I do it like below the result id nothing in the
message portion of the email:


  %mail = (
    To      =>  '[EMAIL PROTECTED]',
    From    =>  '[EMAIL PROTECTED]',
    Subject =>  'Email Manager not running',
    Message =>  substr($line, 42, 7),
  )

Thank you

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]