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 docoment 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.

Thank you


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