How to capture Script warnings

Mark,

I am running into a small problem where I am unable to capture certain 
error messages.

I use trySend(,,,) to capture error messages from the remote server, which 
works very well.

How does one get access to the "Connection reset by peer" and the "Timeout" 
warning from the
debug output below?


$sender = Mail::Transport::SMTP->new(hostname => $mxserver, smtp_debug=>1);
($success, $errorcode, $errortext, $errorlocation, $quitsuccess)
      = $sender->trySend($msg);

}


Net::SMTP=GLOB(0x89b75ac)>>> <td width='100'></td>
Net::SMTP=GLOB(0x89b75ac): Connection reset by peer at 
/usr/lib/perl5/site_perl/
5.8.1/Mail/Transport/SMTP.pm line 95
Net::SMTP=GLOB(0x89b75ac)>>> <td width='75'><font size='2' face='Times' 
color='W
hite'><strong>Time</strong></td>
Net::SMTP=GLOB(0x89b75ac): Timeout at 
/usr/lib/perl5/site_perl/5.8.1/Mail/Transp
ort/SMTP.pm line 95
Net::SMTP=GLOB(0x89b75ac)>>> <td width='75'><font size='2' face='Times' 
color='W
hite'><strong>Fee</strong></td>
Net::SMTP=GLOB(0x89b75ac): Timeout at 
/usr/lib/perl5/site_perl/5.8.1/Mail/Transp
ort/SMTP.pm line 95
Net::SMTP=GLOB(0x89b75ac)>>> <td width='75'><font size='2' face='Times' 
color='W
hite'><strong>Fee</strong></td>

Thank you.

MV Groeten.


Jan Stapel
Vito & Associates, Inc.
Automation Consultants

"We Keep People & Their Data Connected"

Phone: 760-318-1328
Cellular Phone: 818-266-0976

www.vitoassoc.com
www.vitoassoc.net
www.mailherd.com